Склавиатуры вводится 3 числа. найти сумму чисел от 2 до 3. вывести на экран.

225

482

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

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

ALLAHJIJA

Информатика

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

var

a, b, c, i, sum : integer;

begin

read (a, b, c);

sum : = 0;

for i : = b to c do inc (sum, i);

writeln (sum);

end.

ShahKulu

Информатика

4,7(10 оценок)

Var a,b,i,k: integer begin readln(a); for i: =1 to a do begin readln(b); if b> 0 then k: =k+1; end; writeln('кол-во положительных чисел = ',k); end. в этой программе считается сумма положительных чисел среди введенных