Question

Написать программу на языке Pascal (цикл for и while ). Найти сумму нечетных чисел в промежутке от 20 до n

Answer 1

Program l;

var

i, n, s: integer;

begin

writeln('Введите n');

readln(n);

for i = 20 to n do begin

if (i mod 2 <> 0) then

s := s + i;

end;

write(s);

end.

Answer 2

var
  i,n,s:integer;
begin
  Write('n=');
  Readln(n);
  s:=0;
  for i:=20 to n do
    if Odd(i) then s:=s+i;
  Writeln('Сумма с for = ',s);
  s:=0; i:=21;
  while i<=n do
  begin
    s:=s+i;
    i:=i+2
  end;
  Writeln('Сумма с while = ',s)
end.