Помогите, пожалуйста, по Паскалю!21. В компьютер вводятся два числа. Если 1-ое

Question

Помогите, пожалуйста, по Паскалю!21. В компьютер вводятся два числа. Если 1-ое

Помогите, пожалуйста, по Паскалю!

21. В компьютер вводятся два числа. Если 1-ое больше второго, то вычислить их сумму, по другому - творенье. После этого компьютер должен напечатать текст Задачка РЕШЕНА.

22. В компьютер вводятся длины трех отрезков. Компьютер должен ответить на вопрос, правда ли, что пер-вый отрезок не слишком длинен, чтоб образовать с иными 2-мя отрезками треугольник. Указание: Для этого его длина обязана быть меньше суммы длин 2-ух иных отрезков. Замечание: Пока не размышляйте о том, что очень длинноватыми могут быть 2-ой либо 3-ий отрезки. Об этом задание из 5.5.

Задать свой вопрос

Никита
Информатика
2019-07-21 18:34:02
2
2

2 ответа

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

на помощь элли в пещеру прибыли правители магической страны со свитой

ОТветьте пажалуйста на вопросы на казахском языке,если можно с переводом 1)Сен

сочинение на тему пальчики оближешь

площадь прямоугольника одинакова 70.найдите её великую сторону,если она на 9 больше

Угол , на который поворачивается колесо за t сек., равне =at^2-bt+c,

Отыскать однокоренныое слово к слову-викручуться

Найдите все неразвёрнутые углы, образовавшиеся при скрещении 2-ух прямых, если сумма

Ще у Давньому

Расстояние от дома до колодца 100 м, а от дома до

найди и исправь оплошности 2:15=0(ост.2)

Милана Мишалина · Answer 1 · 2019-07-21 18:42:38+3:00

Вот более краткое:

var a,b:real;

begin

readln(a,b);

if agt;b then writeln(a+b) else writeln(a*b);

writeln('Задачка решена');

end.

var a,b,c:integer;

begin

readln(a,b,c);

if alt;(b+c) then writeln('Не слишком длиннющий') else writeln('Перебор');

end.

Степан Рогозный · Answer 2 · 2019-07-21 18:42:05+3:00

Program Pr1;
uses crt;
var a,b,c:integer;
Begin
writeln('a,b');
readln(a,b);
if agt;b then c:=a+b
else c:=a*b;
writeln('Задачка Решена');
end.

2)

Program Pr1;
uses crt;
var a,b,c:integer;
Begin
writeln('a,b,c');
readln(a,b,c);
if alt;b+c then writeln('не длиннющий')
else writeln('Длиннющий');
end.

О проекте

Помогите, пожалуйста, по Паскалю!21. В компьютер вводятся два числа. Если 1-ое

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