Составьте программу для решения следующей задачи. Введите с клавиатуры три числа: А, В и С. Если они не равны, то замените все числа наибольшим из них

Standard

Составьте программу для решения следующей задачи. Введите с клавиатуры три числа: А, В и С. Если они не равны, то замените все числа наибольшим из них и выведите результаты на экран. Иначе, найдите и выведите сумму квадратов этих чисел.

  • Program abc;
    var a,b,c:integer;
    begin
    readln(a,b,c);
    if ((a=b) and (b=c) and (c=a)) then writeln(sqr(a)+sqr(b)+sqr(c))
    else if (a>b) and (b>c) then begin b:=a; c:=a; writeln(‘a=’,a,’ b=’,b,’ c=’,c) end
    else if (b>a) and (c<b) then begin a:=b; c:=b; writeln(‘a=’,a,’ b=’,b,’ c=’,c) end
    else if (c>a) and (c>b) then begin a:=c; b:=c; writeln(‘a=’,a,’ b=’,b,’ c=’,c) end;
    end.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *