С! подставить правельные буквы в естественные и искусственные информационные процессы. естественные - id1002024120221004 от lizadruzhinina1 04.10.2022 17:52

Question

Информатика: С! подставить правельные буквы в естественные и искусственные информационные процессы. естественные информационные процессы: искусственные информационные процессы: а) выполнение операций на компьютере б) сообщение о старте забега для спортсменов с свистка в) получение сведений из телевизионных новостей г) общение между людьми по телефону.

lizadruzhinina1 · Accepted Answer

Var
i, a, b, c: integer;

function check_is(a, b, c: integer):
boolean;
begin
if a >= b + c then check_is := false
else if b >= a + c then
check_is := false else
if c >= a + b then check_is := false else
check_is := true;
end;
procedure check_how(a, b, c: integer);begin
if ((a = b) and (b = c) and (a = c)) then writeln('равносторонний') else
if ((a = b) or (b = c) or (a = c)) then writeln('равнобедренный') else writeln('разносторонний');
end;

begin
writeln('Введите стороны треугольника');
read(a, b, c);
if check_is(a, b, c) then check_how(a, b, c) else writeln('Нет такого треугольника!');
end.

MOGZ ответил