PascalABC. Написать программу, в которой выполняются следующие действия:
1. с клавиатуры вводится имя 1-го человека;
2. с клавиатуры вводится вес 1-го человека;
3. с клавиатуры вводится имя 2-го человека;
4. с клавиатуры вводится вес 2-го человека;
5. программа выводит имя более тяжелого человека (при равенстве весов
выводится имя 2-го человека);
6. в том случае, когда вес какого-либо человека или обоих не находится в
пределах от 3 до 150 программа выводит только сообщение «ошибка».
276
287
Ответы на вопрос:
var
a, b:String;
c, d:Integer;
begin
readln(a);
readln(c);
if (c < 3) or (c > 150)
then begin
writeln('Ошибка');
exit;
end;
readln(b);
readln(d);
if (d < 3) or (d > 150)
then begin
writeln('Ошибка');
exit;
end;
if c > d then
writeln(a)
else
writeln(b);
end.
a = int(input())
if a < 0:
print(a * 2)
else:
print(a - 2)
Объяснение:
язык - питон
Популярно: Информатика
-
DoIIIuPak1820.03.2021 01:20
-
АндрейZAV11.11.2020 14:54
-
Vs94ski19.05.2021 12:18
-
slavikabdulla02.02.2020 02:14
-
vaniaslavioglo27.09.2021 02:37
-
2017minikot27.10.2021 11:14
-
10д15.04.2022 07:51
-
28112005704.10.2020 05:59
-
ФКЗенит113.05.2021 13:37
-
claer0810.05.2020 20:12