var
N, count:integer;
begin
write('N = ');
readln(N);
count := 0;
while N > 0 do
begin
if (N mod 10) mod 3 = 0 then
count := count + 1;
N := N div 10;
end;
writeln('Count = ', count);
readln;
end.
Первичный был:
D:\Документы\Фото\2011\Весна
Дальше поднялся на три уровня вверх и оказался в D:\Документы дальше спустился в D:\Документы\Экзамены\Информатика. Вот полный путь
Идет 4 бита для черно-белых изображений на пиксель.
1. 4*4*4=64
64/8 бит = 8 байт
2. 6*4*4=96
96/8=12
3. 3*6*4=72
72/8=9 байт
Владик был в деревне 24 дня
В по дате появления с самого раннего
Multics
Unix
Ms dos