найти сумму положительных нечетных чисел,меньших n. по паскалю
uses crt;
var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
begin
if ((i mod 2)=1) then s:=s+i;
end;
writeln(summa nechetnych chisel menshe sta ravna ,s);
readkey;end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
