Program lol_kek_4ebyrek;
var x, y:integer;
begin
writeln('Формула: y=x^2');
for x:=1 to 10 do
begin
y:=x*x;
writeln('При x=',x,' y=',y);
end;
end.
2.Код к задаче: «Удаление N-го элемента из списка - Prolog»
1.p([],N,'Error'):-N>0.
2.p([_|Tail],N,'Error'):-N1 is N-1,p(Tail,N1,"Error").
3.p([_|BL],1,BL).
4.p([AL|BL],N,[AL|CL]) :-N>1, N1 is N-1, p(BL,N1,CL).
Удачи, в информатике)
Var a : Integer;
s : Set of Byte;
Begin
s:=[];
Readln(a);
Repeat
If (a mod 10) in s then Write(a mod 10:2) else Include(s,a mod 10);
a:=a div 10;
Until a=0;
Writeln;
end.
<span>у программ различается алгоритм конвертирования, и поэтому такое явление и происходит </span>