Ответы на вопрос:
1)var
2)m,n:integer;
3)begin
4)writeln('vvedite chisla(n>=m)');
5)repeat
6)readln(n);
7)readln(m);
8)until m >= n;
9)while m >= n do begin
10) if n mod 2 = 0 then writeln(n);
11) n:=n+1;
12)end;
13)end.
Объяснение:
Популярно: Информатика
-
h200029.07.2022 08:33
-
AlexGadget133709.07.2022 19:45
-
serditex8904136117.07.2020 07:17
-
Mafiy1202.03.2023 02:40
-
asellial22.04.2021 11:14
-
aliyarahimova2728.03.2022 03:20
-
раовт10.05.2021 09:21
-
Rondov19.08.2020 21:27
-
SashaKo942006.04.2021 16:30
-
aleksejsmolyan06.01.2022 23:41