Огэ 20.2. паскаль. требовалось написать программу, определяющую количество трехзначных чисел, кратных 3. я написал: if (x> 99) and (x< 999)and (x mod = 0) then i: = i+1 снимут ли за (x< 999) ,а не (x< 1000)
theonestop1234
2
04.06.2019 09:29
0
Другие вопросы по теме Информатика
ktoya2
23.07.2019 01:40
тадашихамада1
13.07.2019 11:00
zhasmin777123
13.07.2019 08:40
Vitas40
11.01.2021 15:20
brussina5563
11.01.2021 15:19
giunel041
11.01.2021 15:17
andreisolo18
11.01.2021 15:17
AceAlone
11.01.2021 15:16
maks1974
11.01.2021 15:16
Популярные вопросы
- Используя формулы, связывающие синус, косинус, тангенс и котангенс...
2 - КЛАСС Выпиши из предложений во местоимения. Определи их синтаксическую...
2 - При каких значениях t двучлен 5t+19 принимает неположительные значения?Выбери...
1 - Які характерні риси будови плаунів?...
1 - Особенности природные климатические географические Западной Сибири...
1 - Определить пропускную симметричного канала с матрицей условных вероятностей...
3 - )Они похожи? Как думаете сколько каждой из них лет...
1 - Составьте схему Система властвования Золотой Орды в русских землях...
3 - Поясніть, чому твір “Гер переможений” - новела. посогите...
1 - Написать 2 гомолога. Написать структурную формулу 3,3,4-триметилгептандиол-1,2...
3
Var
A:array[1..3]of integer;
P,k:integer;
Begin
P:=3;
While p>0 do begin
If a[p]<9 then begin
Inc(a[p]);
P:=3;
If (a[1]>0)and((a[1]*100+a[2]*10+a[3]) mod 3 = 0 then inc(k);
End
Else begin
A[p]:=0;
P:=p-1;
End;
End;
Writeln(k);
End.
Попробуй эту прогу