Задание:
Составить программу, которая выводит на экран в обратном порядке нечетные числа от 29 до 1 в PascalABC. Составить программу, которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
Решение:
1) program zad1; var a: integer; begina: =29; while a>0 dobeginif (a mod 2=1) thenwriteln (a); a: =a-1; end; end.
Знаете другой ответ?