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

РЕШЕНИЕ:

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

var
х: array [1..100] of integer;
S,y: integer;
begin
S:= 0;
write('Сколько чисел в массиве (не более 100 ');
readln (y);
write('Введите целые числа по модулю не превышают 300 ');
for i:=1 to у do
begin
write('х[', i,']=');
readln (х[i]);
end;
for j:=1 to у do
begin
if (x[j] mod 3 = 0) and (x[j] mod 10 = 2) then S := S + x[j];
end;
writeln('сумма чисел, кратных 3 и оканчивающихся на 2 ',S)
end.

РЕШЕНИЕ:

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

var
х: array [1..100] of integer;
S,y: integer;
begin
S:= 0;
write('Сколько чисел в массиве (не более 100 ');
readln (y);
write('Введите целые числа не превышающих 300 ');
for i:=1 to у do
begin
write('х[', i,']=');
readln (х[i]);
end;
for j:=1 to у do
begin
if (x[j] mod 6 = 0) and (x[j] mod 10 = 2) then S := S + x[j];
end;
writeln('сумма чисел, кратных 6 и оканчивающихся на 2 ',S)
end.

РЕШЕНИЕ:

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

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

РЕШЕНИЕ:

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

var
х: array [1..1000] of integer;
S,y: integer;
begin
S:= 0;
write('Сколько чисел в массиве (не более 1000 ');
readln (y);
write('Введите целые числа не превышает 30000 ');
for i:=1 to у do
begin
write('х[', i,']=');
readln (х[i]);
end;
for j:=1 to у do
begin
if (x[j] mod 10 = 6) then S := S + 1;
end;
writeln('количество чисел, оканчивающихся на 6 ',S)
end.