Нужно написать программу на PascalABC
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число-сумму чисел, оканчивающихся на 4.
Пример работы программы:
Входные данные: 3 14 25 24
Выходные данные 38
Ответы на вопрос
Ответил Аноним
0
var n,k,s:integer;
begin
writeln('Сколько чисел в последовательности?');
readln(n);
for var i:=1 to n do begin
k:=random(1,30000);
write(k:6);
if k mod 10 = 4 then s:=s+k;
if i mod 10 = 0 then writeln;
end;
writeln();
writeln('Сумма чисел, заканчивающихся на 4: ',s);
end.
begin
writeln('Сколько чисел в последовательности?');
readln(n);
for var i:=1 to n do begin
k:=random(1,30000);
write(k:6);
if k mod 10 = 4 then s:=s+k;
if i mod 10 = 0 then writeln;
end;
writeln();
writeln('Сумма чисел, заканчивающихся на 4: ',s);
end.
Новые вопросы