ПОМОГИТЕ ПОЖАЛУЙСТА !
Вводим натуральное число N. Программа выписывает все натуральные числа, делящиеся на 3 без остатка, до N.
Напишите пожалуйста программу (Паскаль) пожалуйста очень вас прошу

1

Ответы и объяснения

2013-11-01T19:56:57+04:00
Uses crt;
var n,i:integer;
begin
readln(n);
for i:=1 to n do
if (i mod 3=0) then writeln(i);
end.