1 заходишь в мой компьютер. Ярлык будет на рабочем столе, после ищешь папку Мои документы нажимаешь на нее правой кнопкой мыши, и нажимаешь свойство и там будет объем данных, вот пример. Удачи тебе
Var
f:boolean;
n:integer;
begin
f:=(n mod 2=0) and (n>=10) and (n<=99);
write (f);
end.
выделить ячейку->ввести знак->выделить ячейку с первым.->ввести знак операции->выделить ячейку с вторым оп. -> нажать enter
var n,m,a : integer;
begin
readln (n);
While n > 0 do begin
a := n mod 10;
if a > m then
m := a;
n := n div 10;
end;
writeln (m);<span>
end.</span>