Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program p;
vara,b,c,i,j,n : integer;
beginwriteln('введите три числа'); readln(a,b,c);
if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);
readln; end.
нельзя, ведь текст отсканирован а не скопирован!
var a,res: integer;
begin
writeln('введите число');
readln(a);
res: =sqr(a);
writeln('квадрат числа,'a', равен,'res',');
readln;
end.
var
i,n: integer;
read(n);
for i: =0 to 3 do
writeln (4*n-i);
Популярные вопросы