Напишите программу, которая считает три числа и большее из них уменьшит на 5.

Question

Информатика

Евстахий

8 мая, 01:07

Напишите программу, которая считает три числа и большее из них уменьшит на 5.

+4

Ответы (1)

Знаете ответ на вопрос?

Владимирыч · Answer 1

Program gt;

var a, b, c, max:integer;

begin

readln (a, b, c) ;

max:=a;

if (b>max) then max:=b;

if (c>max) then max:=c;

if (a=max) then a:=a-5;

if (b=max) then b:=b-5;

if (c=max) then c:=c-5;

writeln (a,' ', b,' ', c) ;

end.