var a,b:integer; {a-число, b-количество знаков числа}
begin
readln(a);
while a<>0 do
begin
b:=b+1;
a:=a div 10;
end;
writeln(b);
end.
Пойти в лес с топором
Найти ёлочку
Повернуться в сторону ёлочку
Подойти к ёлочке
Срубить ёлочку около основания
Взять ёлочку в области центра масс
Повернуться в сторону дома
Пойти домой
Вот этот кусочек будет считать сколько элементов в массиве меньше 6.
x := 0;
for i := 1 to n do
begin
if m[i] < 6 then
inc(k);<span>
end;
writeln(k);
</span>
Изучение задачи, которую нужно решить через программу
<span> 1. </span>Определение:
-исходных данных
- результат
2. алгоритм будущей программы
3. создание программы
4. тестирование("контрольные точки" рассчитываются "руками" )
5. устранение ошибок