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

РЕШЕНИЕ:

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

var
х: array [1..100] of integer;
S,y: integer;
begin
S:= 0;
write('Сколько чисел в массиве (не более 20 ');
readln (y);
z:=y;
write('Введите целые числа не превышает 1500 (0 - окончание ввода ');
for i:=1 to у do
begin
write('х[', i,']=');
readln (х[i]);
if х[i]=0 then begin i:=y; z=i-1; end;
end;
for j:=1 to z do
begin
if (x[j] mod 5 = 0) or (x[j] mod 9 = 0) then S := S + x[j];
end;
writeln('сумма чисел, кратных 5 или 9 ',S)
end.

РЕШЕНИЕ:

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

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 10 = 2) and (x[i] > S) then S := x[i];
end;
writeln(S);
end.

РЕШЕНИЕ:

Пример программы на языке Паскаль:
х - массив чисел
у - количество символов в массиве чисел
S – количество чисел, кратных 6 и оканчивающихся на 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 10 = 4) and (x[i] mod 6 = 0) then S := S + 1;
if (x[i] = 0) then i:=y;
end;
writeln(S);
end.

РЕШЕНИЕ:

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

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 2 = 0) and (x[i] mod 7 = 0) then S := S + 1;
if (x[i] = 0) then i:=y;
end;
writeln(S);
end.