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

Question

Информатика

Евламгия

17 августа, 10:45

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

+3

Ответы (2)

Знаете ответ на вопрос?

Магдилина · 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.