Перевести программу на паскаль

Общие вопросы: версии и диалекты, синтаксис языка, cтруктуры и типы данных (массивы, строки, списки...), обработка данных и т.д.
Ответить
Рамазан
Сообщения: 1
Зарегистрирован: 30 ноя 2016, 00:16

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.
menkomp
Сообщения: 2
Зарегистрирован: 10 ноя 2017, 01:02
Откуда: Тверь
Контактная информация:

10 ноя 2017, 01:03

Так а разве вторая часть не написана в паскаль?
Ответить