Напишите программу в паскале
пацанизподворотни
3
29.04.2020 21:14
1
Другие вопросы по теме Информатика
Alymov671
04.03.2021 13:39
farangizuk
02.09.2021 16:30
temik25527
30.11.2021 14:45
karina24264
30.11.2021 14:42
школоллло
27.08.2019 10:30
89037895793
16.02.2020 19:57
МисакиКогуна
16.02.2020 19:56
mlvov70
16.02.2020 19:56
Sanya055
16.02.2020 19:56
Популярные вопросы
- На доске написали число из 25 цифр. каждые две соседние цифры составляют число,...
2 - (560*24*7+43040): 40*12 52000: (350*870-304420)*59 700000-72*(63760: 40*15-15376...
2 - Из 2 городов, расстояние между которыми 29км, одновременно выехали 2 автобуса...
3 - дорисуй движения тумана с деепричастий ( впиши в предложения деепричастия )...
2 - На рычаге уравновешены бруски разные по обьему нарушится ли равновесие рычага...
1 - Прямая y= - 2x - 12 параллельна касательной к графику функции y= x^3 - 2x^2...
1 - Запишите цифры словами: 777.568.932.2060.89.58.9 и решить пример словами: 938+472=?...
2 - Рассчитайте объём воздуха, если объём азота равна 250л, а его объёмная составляет...
2 - Mkjmnjmln mnm m m m m,mk,mk,mnmmm,m...
1 - Сани масою 600кг тягнуть за допомгою троса жорсткість якого 15кн/м при чому...
3
Var A,N,k:integer;
Begin
ReadLn(N);
k:=0;
For N:= 1 to N do
Begin
Read(A);
if (A mod 3 = 0)and(Abs(A) mod 10 = 2) then k:=k+1
End;
WriteLn(k)
End.