Рамазан » 30 ноя 2016, 00:27
Помогите пожалуйста программу с делфи на паскаль
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
UsesSysUtils, Math;
var
L: 2..5;
N: 3..242;
r: 0..2;
S: string='';
i: 1..5;
begin
readln (L, N);
if Math.Power (3,L) < N then begin writeln ('NO'); readln; exit end;
dec (N);
repeat
r:= N mod 3;
s:= char (48+r)+s;
N:= N div 3;
until N<3;
s:= char (48+N)+s;
while Length (s)< L do s:='0'+s;
for i := 1 to L do
case s of
'0': s:= 'E'; '1': s:= 'Ж'; '2': s:= 'И';
end;
Writeln (s);
readln;
end.
Помогите пожалуйста программу с делфи на паскаль
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
UsesSysUtils, Math;
var
L: 2..5;
N: 3..242;
r: 0..2;
S: string='';
i: 1..5;
begin
readln (L, N);
if Math.Power (3,L) < N then begin writeln ('NO'); readln; exit end;
dec (N);
repeat
r:= N mod 3;
s:= char (48+r)+s;
N:= N div 3;
until N<3;
s:= char (48+N)+s;
while Length (s)< L do s:='0'+s;
for i := 1 to L do
case s[i] of
'0': s[i]:= 'E'; '1': s[i]:= 'Ж'; '2': s[i]:= 'И';
end;
Writeln (s);
readln;
end.