Ответы на вопрос:
Var a,b: integer; begin write('введите число а '); readln (a); write('введите число б '); readln (b); if (a = b) then writeln ('числа равны') else if (a < b) then begin if ( a mod 5 = 0) then writeln ('число а меньше и делится на 5') else writeln('число а меньше и не делится на 5'); end else begin if ( b mod 5 = 0) then writeln ('число б меньше и делится на 5') else writeln ('число б меньше и не делится на 5'); end; end.
Популярно: Информатика
-
ОМЛА30.06.2021 20:21
-
artemushakov0артем03.09.2021 02:57
-
Retyyyghiop01.11.2020 18:36
-
никита434220.02.2023 02:04
-
fatimarukir09.01.2021 06:06
-
Lisaezhik04.03.2022 16:21
-
AlexanraMexx04.06.2022 06:16
-
yubloh17.06.2023 13:31
-
Vikharevaliza22.12.2020 03:31
-
amhadovmalik06.04.2020 15:49