Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
паскаль, одномерный массив
var a: array [1..6] of integer; i, max: integer;
begin
for i: =1 to 6 do read(a[i]);
max: =a[1];
for i: =1 to 6 do
if a[i]> max then max: =a[i];
writeln(max); readln; end.
var x,i,x1,x2,x3: integer
s: string;
read(x);
s: =str(x);
x1: =int(s[1]);
x2: =int(s[2]);
x3: =int(s[3]);
if (x1+x3)mod x2=0 then writeln("да")
else writeln("нет");
end.
страус! он бегает со скоростью 80 км/ч
Популярные вопросы