Найти произведение чисел кратных 5 и неоканчивающихся 0 на отрезке от а до б. Паскаль
Найти произведение чисел кратных 5 и неоканчивающихся 0 на отрезке от а до б. Паскаль
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы