1)
Program n1;
var a,b,c: real;
sum: integer;
begin
readln(a,b,c);
sum:=trunc(a+b+c);
writeln(sum);
end.
2)
Program n2;
var a,n: integer;
x: real;
begin
readln(a,n);
x:=frac(a/n);
writeln(x)
end.
3)
Program n3;
var a,b,c,d: real;
sum: integer;
begin
readln(a,b,c,d);
sum:=round(a+b+c+d);
writeln(sum);
end.
Ответ:
вот
Объяснение:
Книга написана одним из крупнейших зарубежных специалистов в области программирования. Она посвящена фундаментальным вопросам конструирования корректных и изящных программ для ЭВМ. В ней предлагается методика формального вывода программы из математической постановки задачи. При этом прослеживается развитие алгоритмов вплоть до создания программ. Материал излагается в форме остроумных и поучительных задач по программированию. Книга представляет значительный интерес для широкого круга программистов.
Книга вышла в издательстве “Мир” в 1978 году.
18 бизанимаэт это слово (вроде бы)
120 символов - 75 байт, следовательно 1 символ - 75*8/120=5 бит
тогда количество символов в алфавите N<u />
Pascal:
program Project;
var
a,b,c: integer;
min, max: integer;
begin
Write('a=');
Readln(a);
Write('b=');
Readln(b);
Write('c=');
Readln(c);
if (a>b) and (a>c) then
begin
max:=a;
if b>c then
begin
a:=c;
c:=max;
end
else
begin
a:=b;
b:=max;
end
end else
begin
if (b>a) and (b>c) then
begin
max:=b;
if a>c then
begin
b:=c;
c:=max;
end
else
begin
b:=a;
a:=max;
end
end else
begin
max:=c;
if a>b then
begin
c:=b;
b:=max;
end
else
begin
c:=a;
a:=max;
end
end
end;
Write('a=',a);
Write('b=',b);
Write('c=',c)
end.