Предмет: Информатика,
автор: niktinka
Помогите решить задачу по информатике)) Используя жесткий цикл , выведите на экран все числа от 20 до 99, не оканчивающиеся на 7
Ответы
Автор ответа:
0
program cikl;
var i:integer;
begin
for i:=20 to 99 do
if i mod 10<>7 then write(i:3);
end.
Интересные вопросы
Предмет: Информатика,
автор: erasyl69
Предмет: Английский язык,
автор: Аноним
Предмет: Математика,
автор: assylkhanovk
Предмет: Алгебра,
автор: rozitka95
Предмет: Алгебра,
автор: Юля2797