Вычислить сумму 0+1+2+3+4+5 ... + 99 и определить сколько чисел просуммировано

Паскаль

Нужен текст проги со всеми var begin end итд

Question

Информатика

Томик

3 августа, 00:00

Вычислить сумму 0+1+2+3+4+5 ... + 99 и определить сколько чисел просуммировано

Паскаль

Нужен текст проги со всеми var begin end итд

+2

Ответы (2)

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

Динос · Answer 1

114.6 чисел

на канкуляторе не легче решить?

Изий · Answer 2

Var i, sum, n, count: Integer;

begin

writeln ('Введите максимальное число диапазона') ;

readln (n) ;

for i:=1 to n do

begin

Inc (sum, i) ;

Inc (count) ;

end;

writeln ('Кол-во чисел: ', count) ;

writeln ('Сумма чисел равна: ', sum) ;

end.

Вычислить сумму 0+1+2+3+4+5 ... + 99 и определить сколько чисел просуммированоПаскальНужен текст проги со всеми var begin end итд

Вычислить сумму 0+1+2+3+4+5 ... + 99 и определить сколько чисел просуммировано

Паскаль

Нужен текст проги со всеми var begin end итд