Здравствуйте, помогите пожалуйста перевести в язык С++ с Паскаль...
Первый вопрос:
program zadnie2;
usescrt;
var a, b: integer; s1, s2: real;
begin
writeln ('vvedite radius kruga');
readln (a);
writeln ('vveditedlinustoronikvadrata');
readln (b);
s1:=3.14*sqr(a);
s2:=sqr(b);
if s1>s2 then writeln ('ploshadkrugabolsheploshadikvadrata: ', s1, '>', s2)
elsewriteln ('ploshadkvadratabolsheploshadikruga: ', s1, '<', s2);
end.
Второй вопрос:
programzadacha;
var
a:array[0..9] of longint;
i,j,k:integer;
begin
a[0]:=1;
For i:=1 to 9 do
a:=a[i-1]*i;
for i:=1 to 9 do
for j:= 0 to 9 do
For k:=0 to 9 do
if a+a[j]+a[k]=i*100+j*10+k then writeln(a,'+',a[j],'+',a[k],'=',i*100+j*10+k);
end.
Третий вопрос:
Var A:array[1..100] of integer;
i,n,t:integer;
Begin
write('Vvediterazmernost ');readln(n);
writeln('Ishodnimassiv: ');
For i:=1 to n do
Begin
A:=random(30)-15;
write(A:4);
End;
writeln;
writeln('Preorazovani: ');
i:=0;
While i
A:=A[i+1];
A[i+1]:=t;
inc(i,1);
End;
For i:=1 to n do
write(A:4);
readln;
End.