Потдчитатт суму всех нечетных чисел от 230 430

nekrasska nekrasska    2   27.07.2019 00:30    1

Ответы
phyf phyf  03.10.2020 13:51
230 430:2=115 215- чётные числа до 230 430
ПОКАЗАТЬ ОТВЕТЫ
SBusic SBusic  03.10.2020 13:51
Var
k,sum:integer;
begin
for k:=230 to 430 do
if (k mod 2<>0) then
sum:=sum+k;
write(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика