1.
var n,i,a,m: integer;
begin
m: =-1;
write ('введите количество чисел в последовательности: ');
readln(n);
for i: =1 to n do
begin
write ('введите число (больше -1): ');
readln(a);
if (a mod 4 = 0) and (a> m) then m: =a
end;
write('максимальное число, кратное 4, равно ',m);
end.
2.
var n,i,a,k: integer;
begin
write ('введите количество чисел в последовательности: ');
readln(n);
for i: =1 to n do
begin
write ('введите число: ');
readln(a);
if a mod 4 = 0 then k: =k+1
end;
write('количество чисел, кратных 4, равно ',k);
end.
3.
var n,i,a,s: integer;
begin
write ('введите количество чисел в последовательности: ');
readln(n);
for i: =1 to n do
begin
write ('введите число: ');
readln(a);
if a mod 10 = 4 then s: =s+a
end;
write('сумма чисел, оканчивающихся на 4, равна ',s);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Письменно написать программку для решения : длина прямоугольника равна 91 см. а площадь прямо-угольника равна 455см в квадрате. найдите его площадь.