Var m1, V1: integer; {первое тело}
m2, V2: integer; {второе тело}
begin
Write('Введите массу первого тела в граммах'); ReadLn(m1);
Write('Введите объем первого тела в кубических сантиметрах'); ReadLn(V2);
Write('Введите массу второго тела в граммах'); ReadLn(m2);
Write('Введите объем второго тела в кубических сантиметрах'); ReadLn(V2);
if (m1/V1)>(m2/V2) then WriteLn ('ПЛАВАЕТ')
else WriteLn('ТОНЕТ');
ReadLn;
end.
Uses Crt;
Var
f:text;
S,n,k,d:integer;
Begin
Assign(f,'TextIn.txt');
Reset(f);
Read(f,n);
k:=0;
For n:= 1 to n do
Begin
S:=0;
d:=n div 2;
While d<>0 do
Begin
if n mod d = 0 then S:=S+d;
d:=d-1
End;
if S = n then
Begin
WriteLn(n);
k:=k+1
End
End;
Close(f);
Assign(f,'TextOut.txt');
ReWrite(f);
Write(f,k);
Close(f);
ReadLn;
End.
Для правильной работы программы необходимо, чтобы эти файлы лежали в папке с программой:
Из условия следует, что на одной странице
символа, а раз так, в тексте
символа. Следовательно, текст будет весить
бит, или 56320 байт, или 55 КиБ:)
Ответом является Мощность Алфавита.
Аудиодекодер зарание пожалуйста
