Var n,k1,k2:integer;
begin
write('n = ');
readln(n);
k1:=0; k2:=0;
while n>0 do
begin
if n mod 2=0 then k1:=k1+1 else k2:=k2+1;
n:=n div 10;
end;
writeln('Четных цифр - ',k1,', нечетных - ',k2);
end.
Пример:
n = 14568
Четных цифр - 3, нечетных - 2
500*400 = 200000 пикселей / 8 / 1024 = 24,4140625
80 кбайт / 24,4140625 = 3,2768 окргуляем в меньшую до целого = 3.
2^3 = 8 цветов
Файловая система это иерархическая структура. Следовательно, есть папки верхнего и нижнего уровня. Например Рабочий стол/Папка1/Папка2
Здесь видно что Папка2 лежит в Папке1 значит Папка2 нижняя, а Папка 1 верхняя, в свою очередь Рабочий стол по отношению к Папке1 верхняя папка, а Папка1 нижняя. Если все равно остались вопросы пишите в личку
Var p:real; i,n:integer;
begin
write('n = '); readln(n);
p:=10;
for i:=2 to n do p:=1.1*p;
writeln('p = ',p);
end.
Пример:
n = 5
p = 14.641
Не советую. У меня 13 основная. Это норм. Фронтальная 5.