Найти произведение чисел кратных 5 и неоканчивающихся 0 на отрезке от а до б. Паскаль

Question

Информатика

Арменыч

12 августа, 17:28

Найти произведение чисел кратных 5 и неоканчивающихся 0 на отрезке от а до б. Паскаль

+5

Ответы (1)

Знаете ответ?

Кирюня · Answer 1

var

a, b:integer;

begin

write ('a = ') ; readln (a) ;

write ('b = ') ; readln (b) ;

writeln ('Числа кратные 5 и не оканчивающиеся на 0 на отрезке от ', a, ' до ', b) ;

for a : = a to b do

if abs (a mod 10) = 5 then

write (a, ' ') ;

writeln;

end.