Var n, s, a, p, v:integer;
begin
write('N = '); readln(n);
s:=n div (3*4*4);
a:=(n mod (3*4*4)) div (4*4);
p:=(n mod (4*4)) div 4;
v:=n mod 4;
writeln('s = ',s,' a = ',a,' p = ',p,' v = ',v);
end.
Пример:
N = 2061
s = 42 a = 2 p = 3 v = 1
40 Гбайт = 40 * 1024 * 1024 * 1024 * 8 бит = 343597383680 бит
700 Мбайт = 700 * 1024 * 1024 * 8 бит = 5872025600 бит
Кол-во = 343597383680 / 5872025600 шт = 58.51428571428571 шт ~= 59 шт (округляем в большую сторону так как кусками тут быть не может)
По горизонтали:
1.Клавиатура
2.Процессор
3.Монитор
4.Память
5.Мышь
6.Дискета
7.Винчестер
8.Принтер
По вертикали:
1.Компьютер
From math import ceil
n = int(input('n = '))
print(ceil(n / 2))