var i,s:real;
begin
i:=3;
s:=1;
while i<=29 do begin
s:=s*i;
i:=i+0.2;
end;
writeln(s);
end.
Turbo Pascal
USES CRT;
VAR A:array[1..10] of integer;
B:array[1..5] of integer;
C:array[1..5] of integer;
i,bx,cx:integer;
BEGIN
CLRSCR;
Randomize;
For i:=1 to 10 do
begin
A[i]:=1+random(50);
Write(A[i],' ');
end;
Writeln;
bx:=1; cx:=1;
for i:=1 to 10 do
if (i mod 2 = 0) then
begin
B[bx]:=A[i];
bx:=bx+1;
end
else
begin
C[cx]:=A[i];
cx:=cx+1;
end;
For i:=1 to 5 do
Write(B[i],' ');
Writeln;
For i:=1 to 5 do
Write(C[i],' ');
READLN;
END.<span>
</span>
XIV + XV = 15 + 14 = 29 = XXIX
Суть заключается в том, что мы изменяем внешний вид числа, не меняя самого значения
Program up1;
var a,w,e,q,r:integer;
begin
write('введите трехзначное число');
read(a);
q:=(a mod 10)*100;
w:=((a mod 10) mod 10)*10;
e:=a div 100;
r:=q+w+e;
write(r);
end.