Ответы на вопрос:
2задание:
Program GGF;
Var a,b:integer
Begin
Writeln('введите возраст Пети и Кати');
Readln(a,b);
If a<b then
Writeln('Петя младше');
Else
Writeln('Катя младше');
End.
А первое сейчас подумаю
Program GGF;
Var x,a,b:integer;
Begin
Write('введите пятизначное число');
Readln(x);
a:=x div 100
Популярно: Информатика
-
marinovamari127.04.2021 03:48
-
Tgnbva28.11.2022 04:29
-
braskyn03.01.2021 20:05
-
ашпшплщ16.11.2022 10:02
-
Maksimka08723.05.2023 22:14
-
Beario20.06.2020 16:21
-
angelinasd200726.01.2021 13:23
-
KateySh08.07.2022 00:51
-
Anasxon200420.10.2022 02:27
-
kaleksandra05217.02.2022 03:44