Написать программу которая вводит с клавиатуры 10 чисел и вычисляет их сумму и произведение на алгоритмическом языке
15
ОТВЕТЫ
Program;
var a,sum,p,i:integer;
Begin
sum:=0;
p:=1;
for i:=1 to 10 do
begin;
read(a);
sum:=sum+a;
p:=p*a;
end;
writeln(sum,p);
End.
Написал на Паскале
var a,sum,p,i:integer;
Begin
sum:=0;
p:=1;
for i:=1 to 10 do
begin;
read(a);
sum:=sum+a;
p:=p*a;
end;
writeln(sum,p);
End.
Написал на Паскале
215
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Chuadvas
Помогите, пожалуйста, по информатике! Тема: анимация в PascalABC. Программу ...
2019-03-15 07:17:25
Владислав
Напишите программу на языке pascal дано: натуральное число -n ...
2019-03-15 07:17:20
Pyuv
Информатика. Вычисления в Exel. Помогите. ...
2019-03-15 07:16:12
Tygrarius
Помогите!Нужно решить эти задачи. ...
2019-03-15 07:13:54