Напечатайте все целые числа от A до B, заканчиваются цифрой 5 или цифрой 0.
Напечатайте все целые числа от A до B, заканчиваются цифрой 5 или цифрой 0.
Гость
Ответ(ы) на вопрос:
ГостьProgram prog;
uses crt;
var i,a,b : integer;
begin
clrscr;
write('A = ');
readln(a);
write('B = ');
readln(b);
for i:=A to B do
if (i mod 5) = 0 then
write(i,' ');
end.
Не нашли ответ?
Похожие вопросы