Напишите программу для вычисления суммы четырёх чисел (Pascal ABC)

Question

Информатика

Владимира

9 декабря, 04:24

Напишите программу для вычисления суммы четырёх чисел (Pascal ABC)

+5

Ответы (2)

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

Петраша · Answer 1

program summa;

var a, b, c, d, s:integer;

begin

write ('Введите первое число: ') ;

readln (a) ;

write ('Введите второе число: ') ;

readln (b) ;

write ('Введите третье число: ') ;

readln (c) ;

write ('Введите четвертое число: ') ;

readln (d) ;

s:=a+b+c+d;

write ('Сумма равна: ', s) ;

end.

Екатеринка · Answer 2

var a, b, c, d: real;

begin

readln (a, b, c, d) ;

writeln (a + b + c + d) ;

end.