Ответы на вопрос:
var k,p,v,t,i: integer; begin i: =100; k: =0; while i < > 1000 do begin p: =i div 100; v: =(i div 10) mod 10; t: =i mod 10; if (t > v) and (p < v) then inc(k); inc(i); end; writeln(k); end.
Популярно: Информатика
-
lНанамиТянl17.03.2022 07:20
-
Ivan455410.03.2021 01:52
-
Аллакот88825.01.2023 12:19
-
Патригг23.05.2021 09:51
-
Kachelda07.02.2021 03:18
-
eduard2222209.09.2021 02:55
-
kamil777729.04.2021 21:15
-
help101010010102034915.05.2023 13:14
-
kM4X1Mk02.10.2020 01:51
-
VanyaKEKEP07.02.2022 21:41