Регистрация
Войти
Стать экспертом Правила
Информатика

Напишите программу, которая выводит на экран все числа от 1 до N кратные трем. N вводится с клавиатуры.Желательно не используя массивы

ОТВЕТЫ
 var
i,n:integer;
begin 
write('Write n: ');
readln(n); 
for i:=1 to n do 
if i mod 3=0   
then write(i,' '); 
readln
end.


517
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам