profile
Опубликовано 6 лет назад по предмету Информатика от Глухарь03

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

  1. Ответ
    Ответ дан sansanic

    var a, b, c, d: real;

    begin

      readln(a, b, c, d);

      writeln(a + b + c + d);

    end.

  2. Ответ
    Ответ дан GooFi

    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.

Самые новые вопросы