Найти сумму чисел. числа ввести с клавиатуры. написать программу

298

465

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

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

LeraReka

Информатика

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

{программа в паскале} {находит сумму введенных чисел, конец последовательности - 0} var n, x: integer; begin n: =0; repeat readln(x); inc(n,x); until x=0; writeln ('сумма равна ', n); end.

Pev12112003

Информатика

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

program pin; var i, j, cm: integer; povtor: boolean; const m: array[1..10] of integer = (1, 2, 3, 1, 2, 5, 4, 3, 1, 2); begin cm : = 0; for i : = 1 to 10 do begin povtor : = false;