Составить программу для нахождения среди трехзначных чисел количество чисел оканчивающихся на 8. pascal abc
demorgan512
2
06.10.2019 15:20
0
Другие вопросы по теме Информатика
Vano22052000
26.10.2021 07:16
Roman2321
21.09.2019 04:20
hyihy
24.09.2019 04:50
tarasIT
10.03.2022 23:25
Ŕöömää999
10.03.2022 23:24
iambigboy
10.03.2022 23:23
zyryanovairina
10.03.2022 23:23
vikaya2911
10.03.2022 23:22
nik180208
10.03.2022 23:22
Популярные вопросы
- Выпиши все возможные слова- сочетание из выделенных предложении....
3 - До снижения цены товар стоил 300 руб, а после снижения цены стал...
3 - Вот маша кладет сахар из коробки кусочки сахара короткие уложены...
3 - Найдите слова 2 слова где 2слога и 1 гласный звук 2 слова где 3слога...
2 - На первом тракторе работали 60ч,на втором — 55ч.на втором тракторе...
2 - 1)наименьшее натуральное число,которое делится на 7 и при делении...
1 - Соедини стрелками причины и следствия событий в россии. революция...
3 - Как будет читаться эта цифра 1847 на...
3 - Составить предложения с словосочетаниями: идет с ведром,зацепилась...
2 - Как называется охоты на фазанов с...
1
Привет!
var
x,a,y: integer;
begin
y:=0;
for x:=100 to 999 do
begin
a:= x mod 10;
if (a mod 8 = 0) and (a<>0) then
begin
write(x,' ');
y:=y+1;
end;
end;
writeln;
writeln('Их количество: ',y);
end.