Var
i:integer;
begin
for i=1 to 20 do
write(i:3);
end.
(i:3 - вывод i на 3 позициях( т. к. если выводить подряд, то все будет без пробелов))
Var n,a,h,m,s:integer;
begin
writeln('Введите кол-во дней');
read(n);
if n>1 then begin
writeln('В ', n ,' сутках:');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд')
end;
if n=1 then begin
writeln('В ',n,' дне');
writeln(n*24,' часа');
writeln(n*24*60,' минут');
writeln(n*24*60*60,' секунд');
end;<span>
end.
</span>
4*1024 = 4096 МБ
4096 - 800 = 3296 МБ (800 МБ есть, нужно ещё 3296 МБ)
3296 : 512 = 6.4 флешек, округляем получаем 7 флешек.
Ответ: 3
Компьютеры подразделяются на ЭВМ компьютеры суперкомпьютеры ноутбуки нетбуки
ЭВМ-электронная вычислительная машина
Компьютеры-обычные компьютеры
Суперкомпьютеры-превосходящие по всем данным обычные компьютеры
Ноутбуки-компьютер меньшего размера
Нетбуки-ноутбуки меньшего размера уступающие им по данным