ЧТо тут не так? program jenty2;
Var a,b,c :integer;
Begin
Writeln ('введите три числа');
Readln (a,b,c);
If (a begin
If (a=b) or (a=c) or (b=c) then Writeln (' равносторонний')
Else begin
If (a=b) or (a=c) or (b=c) then Writeln (' равнобедренный')
Else Writeln (' разносторонний')
end;
end
Else Writeln ('не существует');
End.
247
251
Ответы на вопрос:
1) буква ф.2) чтобы вместо цифры печатался знак, нажмите на клавишу с нужным знаком, удерживая при этом кнопку shift. 3) shift+1 и 14) end - это конец.5)
Популярно: Информатика
-
arinaanisimova224.10.2022 14:21
-
mrtocilin13.04.2022 08:00
-
триggg28.01.2023 08:10
-
alice160718.01.2021 11:19
-
Vladimir102345678901.02.2023 05:50
-
Fkrfi134F30.08.2020 02:26
-
DENISIZ8V01.11.2021 10:14
-
werttyu89019.07.2020 11:48
-
kirill600rr1221.02.2022 14:42
-
MarcoMCorejz06.06.2022 18:16