Найти сумму всех нечётных от 50 до 80, используя все три вида циклов.

296

411

Посмотреть ответы 2

Ответы на вопрос:

Мышка007

Информатика

4,4(49 оценок)

Var i,s : integer; begin s: =0; for i: =50 to 80 do if odd(i) then s: =s+i; writeln(s); s: =0; i: =50; while i< =80 do begin if odd(i) then s: =s+i; inc(i); end; writeln(s); s: =0; i: =50; repeat if odd(i) then s: =s+i; inc(i); until i> 80; writeln(s); end.

ksp86450

Информатика

4,4(65 оценок)

Var a: array[1..30] of integer; i,k,min: integer; begin writeln('введите годы рождения '); for i: =1 to 30 do begin readln(a[i]); end; min: =a[1]; for i: =1 to 30 do begin if a[i]< min then begin min: =a[i]; k: =i; end; end; writeln('порядковый номер самого старшего по возрасту человека равняется ',k); end.