var
a, b: real;
begin
writeln('Введите 2 числа');
readln(a, b);
if a > b then
begin
a:= a + 3;
b:= b - 5;
end;
if a < b then
begin
a:= a - 5;
b:= b + 3;
end;
writeln('a = ', a, ', b = ', b);
end.
Var n,f,i:integer;
begin
n:=10;
f:=1;
for i:=1 to n do f:=f*i;
writeln(n,'! = ',f);
end.
Результат:
10! = 3628800
Составим уравнение и решим его:
8*n+8000 = 16*n
8*n = 8000 где n - количество символов в сообщении
Переведем в байты и получим, что первоначальный объем сообщения равен 8000/8 = 1000байт
Var ar:array[1..12] of integer;
ar2:array[1..12] of integer;
i,k:integer;
begin;
randomize;
writeln('Array:');
for i:=1 to 12 do
begin;
ar[i]:=random(30);
write(ar[i]:4);
if ar[i] mod 2=0 then
begin;
inc(k);
ar2[k]:=i;
end;
end;
writeln;
writeln('Final array:');
for i:=1 to k do
write(ar2[i]:4);
end.