Ответы на вопрос:
1) var a,b,x: integer; begin write('a: '); readln(a); write('b: '); readln(b); for x: =a to b do begin if (x> =10) and (x< =99) then if x mod 6 = 2 then write(x,' '); end; end. 2) var a,b,x,s : integer; begin write('a: '); readln(a); write('b: '); readln(b); for x: =a to b do if (x=21) or (x=42) or (x=63) or (x=84) then s: =s+x; write(s); end.
Популярно: Информатика
-
Пелагея1429.10.2020 06:21
-
fox37001.04.2020 10:17
-
Griezman731.03.2020 21:13
-
Индира34718.09.2021 07:06
-
уукуку05.10.2021 05:59
-
Tina0528.07.2021 14:38
-
Vasiuk105519.02.2022 11:58
-
leracert125.05.2022 09:43
-
Amrlololoshka01.07.2022 19:02
-
lisablida23.07.2020 05:34