Регистрация
ПринцессалучшаЯ
17.11.2021 12:42
Информатика
Есть ответ 👍

Подскажите : программа на языке паскаль определите какая из трех сторон треугольника больше всех

111
194
Посмотреть ответы 2

Ответы на вопрос:

vikabelaua114
vikabelaua114
4,4(80 оценок)
Program abc; var a,b,c: integer; begin writeln('введите первую сторону'); read(a); writeln('введите вторую сторону'); read(b); writeln('введите третью сторону'); if (a> b) and (a> c) then write(a); if (b> a) and (b> c) then write(b); if (c> a) and (c> b) then write(c); if (a=b) or (a=c) or (c=b) then write('есть равные стороны и нет большей') end.
sergiomac1108
sergiomac1108
4,8(21 оценок)

var

  i, a, b: integer;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  for i  : = a + 1 to b -1 do

      writeln(i);

end.

Популярно: Информатика