Найти произведение всех натуральных чисел меньших 100, начиная с n
Pascal abc
104
212
Ответы на вопрос:
Var a1,a2,b1,b2,c1,c2: integer; begin writeln('координаты превой клетки'); writeln('введите номер столбца'); readln(a1); writeln('введите номер строки'); readln(a2); writeln('координаты второй клетки'); writeln('введите номер столбца'); readln(b1); writeln('введите номер строки'); readln(b2); if ((a1 mod 2) < > 0) then if ((a2 mod 2) < > 0) then c1: =0 else c1: =1; if ((a1 mod 2) = 0) then if ((a2 mod 2) < > 0) then c1: =1 else c1: =0; if ((b1 mod 2) < > 0) then if ((b2 mod 2) < > 0) then c2: =0 else c2: =1; if ((b1 mod 2) = 0) then if ((b2 mod 2) < > 0) then c2: =1 else c2: =0; if c1=c2 then writeln('yes') else writeln('no') end.
Популярно: Информатика
-
Antonio1111111108.03.2020 07:59
-
Nalalisa29.04.2022 23:44
-
malkinzene08.10.2022 05:18
-
hoggarthtanya08.12.2020 06:46
-
kmvkemerovo11.07.2021 07:45
-
mashacherevchenko26.08.2021 04:10
-
galaninartem20122.09.2022 20:39
-
pirozhkovanastya21.04.2023 10:32
-
grek199019.04.2020 20:46
-
n1kitat28.12.2022 05:47