Написать программу на языке паскаль. Найти сумму 20 чисел введенных с клавиатуры.
Написать программу на языке паскаль. Найти сумму 20 чисел введенных с клавиатуры.
Гость
Ответ(ы) на вопрос:
Гостьуже не помню паскаль, но сейчас, начинается вроде так Program Suma;
var
a,b,c:integer;
Begin
a:=0;
b:=0;
readln(a,b);
c:=a+b;
writeln(a,'+',b,'=',c);
End.
Гость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.
Не нашли ответ?
Похожие вопросы