3 22 Караша 2013 жылы ушатын робот шыкты. 4 2020 21 шилдеде алгашкы минатазалаушылар (сапёрлер) пайда болды.
Спасибо
Ответ дал: Гость
program; var i: byte; str: string; begin for i: =60 to 70 do begin str: =str+chr(i) ; end; writeln(str); end.
Ответ дал: Гость
program ml; uses crt; var x,i: integer; w,l: real; beginclrscr; readln(x); l: =x; for i: =1 to x do beginw: =w+1; l: =x/w; if frac(l) = 0 then writeln(l: 2: 0); end; readkey; end.
Популярные вопросы