Вывести на экран количество чисел делящихся на 3 в промежутке от 50 до n
AnetaAndMonika2006
3
22.05.2019 06:43
0
Другие вопросы по теме Информатика
irkorwp0dj0n
08.10.2019 07:21
AngreilKyzmun
22.04.2020 08:18
makslazarev201
22.04.2020 08:00
km546729
22.04.2020 07:59
Glowly
22.04.2020 07:59
msnyamkina
22.04.2020 07:58
ulia115
22.04.2020 07:58
hcggchhcfuj
22.04.2020 07:58
zroslama
22.04.2020 07:58
Популярные вопросы
- Сколько существует занять первое либо, второе и третье места по футболу,...
2 - Вычислить площадь фигуры, ограниченной линиями y=-x+1 и y=-x^2+1...
2 - С•р•о•ч•н• прочитайте это стихотворение. я не ищу гармонии в природе я не...
3 - Эссе я будущее моей страны на каз.языке...
2 - Совсем не понимаю функции, , . нужно. ...
1 - Отрезок ah перпендикулярно плоскости квадрата and найдите dh если ab=8 ah=6...
3 - Ab и ac - отрезки касательных, проведённых к окружности радиуса 9 см. найдите...
1 - Тригонометрические уравнения приводимые к квадратным tg^2x-6tgx+5=0...
1 - 4.1 что делает цыетовод с растением? 4.2какое общее свойство организмов иллюстрирует...
1 - Найдите координаты точек пересечения прямой y=2, 5 x -1 с осями координат...
2
Var i,n :integer;
Begin
Read(n);
Count:=0;
For i:=50 to n do
If i mod 3 = 0 then inc(count);
Write(count);
End.