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

Question

Информатика

Юлианка

11 июля, 06:57

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

+2

Ответы (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.