Ответ:
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.
A:\TEST\INF\MY так как пользователь последовательно идёт к корню диска "А"
Всего 128 мест, значит хватит 7 бит
2^7 = 128
Оператор присваивания
Составной оператор
Оператор безусловного перехода
Условные операторы
Оператор выбора Case
Операторы цикла
A = float(input())
print("a = ",a)
b = int(a*10)\%10
print("b = ",b)
Пример:
128.953
<span>a = 128.953
b = 9</span>