Составьте программу, которая будет определять тип треугольника, если пользователь введет его самый большой угол. (программа турбо паскаль)
171
233
Ответы на вопрос:
var alpha: real;
begin
read(alpha);
if alpha > 90 then write("tupougolnyj");
if alpha = 90 then write("prjamougolnyj");
if alpha < 90 then write("ostrougolnyj");
end.
Пункт а: насколько я помню, в паскале невозможно реализовать бесконечный цикл, поэтому решение будет слегка притянуто за уши. например если вы введете число из 9001 символа, программа будет работать неккоректно. для выхода из цикла используется 'метка'. a, counter, summa : integer; label transfer; begin writeln('введите число'); readln(a); counter : = 1; countertw0 : = countertwo + 1; while counter < 9000 do begin counter : = counter +1; if (a div counter) < 0 then transfer else countertwo : = countertwo + 1; else; goto transfer; //узнали, что в числе countertwo символов while counter < countertwo do summa : = summa + ((a div counter) mod 10); summa : = summa + (a mod 10); writeln(summa); end.
Популярно: Информатика
-
umnik8453024.04.2022 11:41
-
Anyta1511106.03.2021 09:20
-
dondokovsoel5916.03.2022 05:05
-
yuliana08070410.01.2021 12:52
-
varfo27.10.2022 14:53
-
bati999911.04.2021 10:16
-
olga83702.08.2020 18:13
-
Sobsrhjj23.09.2022 22:30
-
znatokchok27.01.2023 22:03
-
sembaevam25.12.2020 01:01