вычислить периметр треугольника. Если он больше 20, то напечатать слово "Хорошо",

Вычислить периметр треугольника. Если он больше 20, то напечатать слово "Превосходно", иначе напечатать слово "Отлично"
паскаль

Задать свой вопрос
1 ответ
Вроде работает

var a, b, c, P: real;

begin


writeln ('vvedite storoni');
readln ( a, b, c);
P:= a + b + c;

if P gt; 20 then begin
writeln (' horosho');
end
else begin 
writeln ('otlichno');
end;

end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт