Напишите программу для вычисления суммы четырёх чисел(Pascal ABC)
Напишите программу для вычисления суммы четырёх чисел(Pascal ABC)
Гость
Ответ(ы) на вопрос:
Гостьvar a, b, c, d: real; begin readln(a, b, c, d); writeln(a + b + c + d); end.
Гость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.
Не нашли ответ?
Похожие вопросы