По паскалю! 21. в компьютер вводятся два числа. если первое больше второго, то вычислить их сумму, иначе - произведение. после этого компьютер должен напечатать текст решена. 22. в компьютер вводятся длины трех отрезков. компьютер должен ответить на вопрос, правда ли, что пер-вый отрезок не слишком длинен, чтобы образовать с другими двумя отрезками треугольник. указание: для этого его длина должна быть меньше суммы длин двух других отрезков. замечание: пока не думайте о том, что слишком длинными могут быть второй или третий отрезки. об этом – из 5.5.
avoka
2
17.03.2019 22:20
58
Другие вопросы по теме Информатика
OLZHAS1808
25.06.2019 02:20
Silvertrue
21.09.2019 08:01
GoldenRose99
11.03.2021 06:56
MrDrozdik
27.07.2019 10:10
danilbalabanov
27.07.2019 10:00
юра417
27.07.2019 10:00
annett3453
27.07.2019 09:50
агроэШкольник2281
27.07.2019 09:50
Vladislav525245264
27.07.2019 09:50
Популярные вопросы
- Дан интервал от -3 до 6 запишите обозначения,аналитическую и модели...
1 - Теплота образования сульфида натрия равна 372 кдж/моль. вычислить...
1 - Решите неравенство. 4(x-1) ≤2+7x. заранее !...
1 - Как правильно написать отчество в родительном падеже...
1 - На какие две группы делятся гласные...
3 - Объясните на конкретном примере,в чем различие между понятиями...
3 - Чай, чаепитие и позолота это что тело, вещество или явление? !...
2 - На какие две группы делятся гласные руский язык...
1 - От какого слова происходит арифмитека...
1 - Перевод текста на казахский язык: летом я ездил отдыхать к бабушке.я...
2
Program Pr1;
uses crt;
var a,b,c:integer;
Begin
writeln('a,b');
readln(a,b);
if a>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 a<b+c then writeln('не длинный')
else writeln('Длинный');
end.
Вот более короткое:
var a,b:real;
begin
readln(a,b);
if a>b then writeln(a+b) else writeln(a*b);
writeln('Задача решена');
end.
var a,b,c:integer;
begin
readln(a,b,c);
if a<(b+c) then writeln('Не слишком длинный') else writeln('Перебор');
end.