Дана таблица “Счет к оплате”. a) Определите формат ячеек C3:C10. b) Определите формат ячеек D3:D10.

Question

Информатика: Дана таблица “Счет к оплате”. a) Определите формат ячеек C3:C10. b) Определите формат ячеек D3:D10.

seva0311 · 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 ответил