Решите задачу по информатикеif 15.Даны три числа. Найти сумму наибольших из них.

0 голосов
36 просмотров

Решите задачу по информатике
if 15.Даны три числа. Найти сумму наибольших из них.


Информатика | 36 просмотров
0

Тебе на каком языке надо?

Дан 1 ответ
0 голосов

Program z1;
        var s:integer;
        a,b,c:integer;
begin
        write('a=');readln(a);
        write('b=');readln(b);
        write('c=');readln(c);
        if (a>c) and (b>c) then writeln(a+b);
        if (a>b) and (c>b) then writeln(a+c);
        if (b>a) and (c>a) then writeln(b+c);
        readln
end.

(942 баллов)