Var a, b, c:real;
begin
writeln('Delimoe');
readln(a);
writeln('Delitel');
readln(b);
if b=0 then writeln('Delitel ne 0') else
begin
c:=a/b;
writeln(c);
end;
end.
Var
n:integer;
function kol(n:integer):integer;
var k:integer;
begin
k:=0;
while n>0 do
begin
k:=k+1;
n:=n div 10;
end;
kol:=k;
end;
begin
write('n = '); readln(n);
writeln('k = ',kol(n));
end.
Пример:
n = 123456
k = 6
Пусть каждый символ кодируется 1 байтом
Тогда на каждой странице 60*80 = 4800 символов, всего в книге 250*4800 = 1200000 байт информации
Макс. количество книг:
750 Мб / 1200000 б = 750 * 1024 * 1024 б / 1200000б = 655,36 книг = 655 книг
Var n, tmp, sum, i:integer;begin readln(n); sum := (n * (n + 1)) div 2; for i := 1 to n - 1 do begin read(tmp); sum := sum - tmp; end; writeln(sum);<span>end.</span>
А)(103 команды 1(вперед на 4)) б) (5 команд (назад 3))