Даны три числа а, b и c выясните верно ли соотношение а

Question

Информатика

Ильюха

23 февраля, 17:09

Даны три числа а, b и c выясните верно ли соотношение а

+1

Ответы (1)

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

Маргоша · Answer 1

Var a, b, c:integer;

function sravnenie (a, b, c:integer) : boolean;

begin

sravnenie:=false;

if a
begin

if b
end;

end;

begin

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

readln (a, b, c) ;

if sravnenie (a, b, c) then writeln ('Да') else writeln ('Нет') ;

end.