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

Question

Информатика

Альберта

12 октября, 18:59

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

+3

Ответы (2)

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

Косьма · Answer 1

уже не помню паскаль, но сейчас, начинается вроде так

Program Suma;

var

a, b, c:integer;

Begin

a:=0;

b:=0;

readln (a, b) ;

c:=a+b;

writeln (a,'+', b,'=', c) ;

End.

Исаак · Answer 2

Program Сhisla;

var

a, s, n: integer;

Begin

s:=0;

For n: = 1 to 20 do begin

Write (' Введите число А=') ;

read (a,) ;

s: = s + a;

end;

write ('Сумма 20 чисел пользователя = ', s) ;

End.