Задание:
ПОМОГИТЕ ПОЖАЛУЙСТА! Вводим натуральное число N. Программа выписывает все натуральные числа, делящиеся на 3 без остатка, до N. Напишите пожалуйста программу (Паскаль) пожалуйста очень вас прошу
Решение:
Uses crt; var n,i: integer; beginreadln (n); for i: =1 to n doif (i mod 3=0) then writeln (i); end.
Знаете другой ответ?