Question

Ввести целое число больше 1
Вывести числа от 1 до введенного числа

Посчитать сумму тех, которые делятся на 5

Например, ввели 17

Выводим:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
сумма = 30

(5 + 10 + 15)

Answer 1

Ответ (программа на паскале):

var a, s, i: integer;

begin

write('A = ');

readln(a);

s:= 0;

for i:=1 to a do

begin

write(i,' ');

if i mod 5=0 then s:=s+i;

end;

writeln;

writeln('s = ',s);

end

Пример:

A = 17

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17  

s = 30