1) Составьте программу вычисления сумму чисел от 1 до 100.

2) Составьте программу вычисления произведения чётных чисел от 1 до 10.

3) Составьте программу вычисления количества двухзначных нечётных чисел.

Question

Информатика

Акулина

14 октября, 02:57

1) Составьте программу вычисления сумму чисел от 1 до 100.

2) Составьте программу вычисления произведения чётных чисел от 1 до 10.

3) Составьте программу вычисления количества двухзначных нечётных чисел.

+5

Ответы (1)

Знаете ответ?

Руся · Answer 1

1) var s, i:integer; begin s:=0; for i:=1 to 100 do s:=s+i; writeln (s) ; end. 2) var s, i:integer; begin s:=1; i:=2; while i<11 do begin s:=s*i; i:=i+2; end; writeln (s) ; end. 3) var i, s:integer; begin i:=11; s:=0; while i<100 do begin i:=i+2; s:=s+1; end; writeln (s) ; end.