Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
a: array[1..5]of integer;
i: integer;
begin
for i: =1 to 5 do read(a[i]);
for i: =1 to 5 do write(a[i],' ');
writeln;
for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);
end.
a: integer;
readln(a);
writeln(a*(a div 10 + (a mod 10)*10));
Популярные вопросы