Несколько задачек на Паскале

[bwitcher]

Все понял, спасибо огромное! Обе проги рабочие)))
А с первыми двумя не помогёшь?))))))))))))

[ROMA2PVT]

А с первыми двумя не помогёшь?))))))))))))

тебе их написали.Так трудно сделать по примеру?

[bwitcher]

Сообщение от ROMA2PVT

тебе их написали.Так трудно сделать по примеру?

Имеешь ввиду, написали с For? Да, писали. А преобразовать с моим уровнем знаний трудновато, честно сказать)

[ROMA2PVT]

-I-

Program MyProg;
Var
a:longint;
Begin
repeat
Writeln('Vvedite peremennuy a');
Readln(a);
until a<=50;
repeat
writeln(a,'^3 = ', a*a*a);
inc(a);
until a>50;
Readln;
End.

Если не пытаться то всё трудно.
-II-

Var
 n,i:integer;
 fact:longint;
Begin
repeat
Write('N:=');
Readln(n);
until n>=0;
fact:=1;
i:=1;
repeat
 fact:=fact*i;
 inc(i);
until i>n;
writeln('Ôàêòîðèàë:=',fact);
Readln;
End.

[bwitcher]

Спасибо, да, тоже работает