<span>var a,b: integer;
function NOD(x,y: integer): integer;
begin
if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;
</span><span>begin
readln(a,b);
writeln( 'НОД = ', NOD(a,b) );
end.</span>
Дано
K= 100 стр
L= 60 строк
N=80 символов
Z= 1 байт
Q - ? Мбайт
Решение
ИНформационная емкость книги составит 100*60*80*1=480000 байт = 0,48 Мб
<span>2 мегабайта это 2048 килобайт </span>
Var
s, k, a, sr: integer;
begin
s := 0;
k := 100;
a := 12;
repeat
s := s + a;
k := k - 10;
a := a - 1;
until not(a > 1);
sr := s + k;
writeln(sr);
writeln(k);
end.