Напишите программу. найти количество трехзначных чисел, которые оканчиваются на 1 и на 3.
AliceMagic
2
04.06.2019 06:00
0
Другие вопросы по теме Информатика
lusindrastsr
25.09.2019 18:01
atalalihin
25.09.2019 18:01
rederemin2006
16.06.2019 22:50
kyasarin1
16.06.2019 22:50
Саша7647
20.10.2019 14:17
Дишka
20.10.2019 14:19
Frizi4
20.10.2019 14:19
efj63233
20.10.2019 14:19
pierrotsadclown
17.05.2021 18:47
Популярные вопросы
- Даны соли: карбонат калия, нитрат алюминия, сульфат натрия. при гидролизе...
1 - Вбанке был сахар через несколько дней количество сахара уменьшилась...
1 - Какая погода бывает веной 5 предложений...
3 - Объясните термин сестиматика биология и эвалюция...
2 - 676. спишите, расставляя пропущенные знаки препинания при сравнительных...
1 - Две целые две пятнадцатые минус одна целая четыре пятнадцатых...
2 - Напишите аккорд 1 53 ( неп. ) на пианино...
2 - Можно решение и ответ уравнения . 3.23×x+0.97×x+0.74=2 заранее ♡...
3 - Можно ли отличить стихи футуристов от стихов других поэтов? докажите...
1 - Вскобках запиши проверочные слова скора зима...
1
CLS
FOR I = 100 TO 999
IF (I MOD 10 = 3) OR (I MOD 10 = 1) THEN
K=K+1
END IF
NEXT I
PRINT K
var i,k:integer;
begin
k:=0;
FOR I: = 100 TO 999
IF (I MOD 10 = 3) OR (I MOD 10 = 1) THEN K=K+1;
write(k);
end.