Напишіть програму, яка для двох чисел а і b виводить відповідь «a>b»,
«b>a» або «a=b»
212
360
Ответы на вопрос:
1)
var
i, mx, num:integer;
begin
mx:=-1;
for i:=1 to 3 do
begin
readln(num);
if num>mx then
mx:=num
end;
write(mx);
end.
2)
var a, b, c:integer;
begin
write('Введите сторону а: ') ;
readln(a) ;
write('Введите сторону b: ') ;
readln(b) ;
write('Введите сторону c: ') ;
readln(c) ;
if (a+b<c) or (b+c<a) or (c+a<b) then
write('Такого треугольника не существует')
else
write('Такой треугольник существует') ;
end.
Популярно: Информатика
-
malina201721.06.2023 15:16
-
Boom11111111111121.03.2020 08:00
-
светланчикк25.10.2020 16:16
-
mdior1012.08.2022 23:31
-
svetlana27830.03.2023 16:25
-
Nerzul282881829.07.2020 22:03
-
ArtemTony22.04.2020 08:00
-
ArinaM2524.01.2020 11:27
-
blin42p00v7h15.08.2022 21:29
-
паша57304.11.2022 12:29