05
ДекабрьНапишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся…
Предмет: Информатика
Уровень: 5 - 9 класс
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число — сумму чисел, оканчивающихся на 4.
===== PascalABC.NET =====
begin
var n := ReadInteger(‘Введите число’);
Write(n, ‘ = ‘);
var t1000 := n div 1000;
n := n mod 1000;
var t500 := n div 500;
n := n mod 500;
var t100 := n div 100;
n := n mod 100;
var t10 := n div 10;
n := n mod 10;
Write(t1000, ‘ x 1000 + ‘, t500, ‘ x 500 + ‘,
t100, ‘ x 100 + ‘, t10, ‘ x 10 + ‘, n, ‘ x 1’)
end.