Задание:
1) Написать программу вывода всех четных чисел от 2 до 1000 включительно 2) Написать программу определяющую сумму всех нечетных чисел от 1 до 99
Решение:
1) vari: word; beginfor i: =1 to 1000 do if i mod 2=0 then write (i, '); readln; end.2) vari: word; sum: word; beginsum: =0; for i: =1 to 99 do if i mod 2 <> 0 then sum: =sum+i; writeln ('Summa=', sum: 5); readln; end.
Знаете другой ответ?