1) Написать программу вывода всех четных чисел от 2 до 1000…

Question

1) Написать программу вывода всех четных чисел от 2 до 1000 включительно 2) Написать программу определяющую сумму всех нечетных чисел от 1 до 99

Answer 1

51

gl222

08 апреля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: