Тема: циклы. подсчитать сумму нечетных чисел от 1 до 99 в паскале

artemluts007 artemluts007    3   26.06.2019 19:00    0

Ответы
artemkharlamov1 artemkharlamov1  02.10.2020 12:34
Var
  i,s:integer;
begin
  i:=1; s:=0;
  while i<=99 do
  begin s:=s+i; i:=i+2 end;
  Writeln(s)
end.

Тестовое решение:
2500
ПОКАЗАТЬ ОТВЕТЫ
ukharitonova ukharitonova  02.10.2020 12:34
Var sum,i:Integer;
 Begin 
  for i:=1 to 99 do 
   if (i mod 2<>0) then sum:=sum+i; 
   Writeln('SUM =', sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика