Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
на pascal:
program sonik;
uses crt;
var a,b,c: string;
begin
readln (a); readln (b); readln (c);
writeln (' фигуры: ',a,b,c);
end.
var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.
program ssd;
uses crt,graph;
var d,m: integer;
clrscr;
initgraph(d,m,'');
arc(200,200,360,180,50);
line(150,200,250,200);
readkey; closegraph;
в двоичной 1000001
в восмеричной 101
в шеснадцатеричной 41
Популярные вопросы