Задать вопрос
27 июня, 05:07

Решите задачу на языке Pascal.

Дано 3 числа. Найти суму двух наибольших из них.

+2
Ответы (1)
  1. 27 июня, 05:38
    0
    Var a, b, c, max, two: Integer;

    begin

    writeln ('Введите 1 число') ;

    readln (a) ;

    writeln ('Введите 2 число') ;

    readln (b) ;

    writeln ('Введите 3 число') ;

    readln (c) ;

    max:=a;

    if max < b then max:=b;

    if max < c then max:=c;

    if max=a then

    begin

    two:=max;

    if c < b then two:=b;

    if c > b then two:=c;

    writeln (max,'+', two,'=', max+two) ;

    end;

    if max=b then

    begin

    two:=max;

    if c < a then two:=a;

    if c > a then two:=c;

    writeln (max,'+', two,'=', max+two) ;

    end;

    if max=c then

    begin

    two:=max;

    if a < b then two:=b;

    if a > b then two:=a;

    writeln (max,'+', two,'=', max+two) ;

    end;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Решите задачу на языке Pascal. Дано 3 числа. Найти суму двух наибольших из них. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы