Учебно-методические комплексы

РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив чисел
у - количество символов в массиве чисел
S – количество трёхзначных чисел, кратных 4

var
х: array [1..1000] of integer;
S,y: integer;
begin
S:= 0;
y:= 0;
write('Сколько чисел в массиве (не более 1000 ');
readln (y);

write('Введите целые числа не превышают 3000 (0 – признак окончания ввода, не входит в последовательность ');
for i:=1 to у do
begin
readln (х[i]);
if (x[i] > 99) and (x[i] < 1000) and (x[i] mod 4 = 0) then S := S + 1;
if (x[i] = 0) then i:=y;
end;
if y>0 then writeln(S) else writeln('NO');
end.

РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив чисел
у - количество символов в массиве чисел
S – сумма всех чисел, оканчивающихся на 5

var
х: array [1..100] of integer;
S,y: integer;
begin
S:= 0;
write('Сколько чисел в массиве (не более 100 ');
readln (y);

write('Введите целые числа не превышают 300 ');
for i:=1 to у do
begin
readln (х[i]);
if (x[i] mod 10 = 5) then S := S + x[i];
end;
writeln(S);
end.

Ответ:

РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив чисел
у - количество символов в массиве чисел
S – количество чисел, кратных 4 и оканчивающихся на 0

var
х: array [1..1000] of integer;
S,y: integer;
begin
S:= 0;
y:= 0;
write('Сколько чисел в массиве (не более 1000 ');
readln (y);

write('Введите целые числа не превышают 3000 (0 – признак окончания ввода, не входит в последовательность ');
for i:=1 to у do
begin
readln (х[i]);
if (x[i] mod 10 = 0) and (x[i] mod 4 = 0) then S := S + 1;
if (x[i] = 0) then i:=y;
end;
if y>0 then writeln(S) else writeln('NO');
end.

РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив чисел
у - количество символов в массиве чисел
S – максимальное число, кратное 4

var
х: array [1..1000] of integer;
S,y: integer;
begin
S:= 0;
write('Сколько чисел в массиве (не более 1000 ');
readln (y);

write('Введите целые числа не превышают 3000 ');
for i:=1 to у do
begin
readln (х[i]);
if (x[i] mod 4 = 0) and (x[i] > S) then S := x[i];
end;
writeln(S);
end.