Program
tapsirmaC;
var
a,b,n,x,p:integer;
input,output:text;
begin
p:=0;
assign(input,'c.in');
assign(output,'c.out');
reset(input);
rewrite(output);
read(input,a,b,n);
for x:= 1 to n do
begin
if a*x mod n = b
then
p:=p+1;
end;
write(output,p);
close(input);
close(output);
end.
запишем условие: страниц=1264, строк=85, символов=70, i=8 бит M-?
решение: вычислим общее количество символов в тексте
K=1264*85*70=752080
вычислим информационный объем текста I=K*i=7520800*8=60166400 бит=7344.53 Кб =7.17Мб
Разделим объем диска на информационный объем 1 копии романа и узнаем кол-во копий на диске
М=700/7,17=97 копий это и есть ответ
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var d:=ReadReal('D=');
if d<=-30 then Writeln(d/10)
else
if d>=20 then Writeln(sqr(d-1))
else Writeln(1-2*d)
end.