profile
Опубликовано 5 лет назад по предмету Информатика от Школа31111

Даны 3 числа.Если выполняется неравенство A,B,C, то напечатайте значение суммы, а иначе произведение чисел.

  1. Ответ
    Ответ дан extybrzzz
    //PascalABC.NET 3.0
    var a,b,c : integer;
    begin 
    write('Введите первое число: '); 
    readln(a); 
    write('Введите второе число: '); 
    readln(b); 
    write('Введите третье число: '); 
    readln(c); 
    if (a <> b) and (a <> c) and (b <> c) then   
    writeln('Выполняется неравенство A,B,C. Ответ: ',a+b+c) 
    else    writeln('Ответ:' ,a*b*c);
    end.
Самые новые вопросы