Pascal abc;
var a,n,pr:<span> longint</span>;
begin
pr:=1;
writeln('введите число n ');
readln(n);
for a:=1 to n do begin
pr:=a*pr;
end;
writeln('произведение чисел от 1 до ',n,' = ',pr);
end.
Const n = 20;
var a: array[1..n] of real;
i: integer;
begin
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if(i mod 3 <> 0) then write(a[i], ' ');
<span>end.
const n = 18;
var a: array[1..n] of integer;
i, max, fir: integer;
begin
max := 1;
fir := 0;
for i := 1 to n do
begin
read(a[i]);
if(fir = 0) and (a[i] > 0) then fir := i;
if(a [i] < 0) and (a[max] < a[i]) then max := i;
end;
i := a[max];
a[max] := a[fir];
a[fir] := i;
for i := 1 to n do
write(a[i], ' ');
<span>end.</span></span>
Вот решение на паскале.
var b,k,i,l:integer;a:array[1..100] of string;begin
a[1]:='1';
a[2]:='2';
a[3]:='3';
a[4]:='2';
a[5]:='3';
for i:=1 to 5 do
begin
if a[i]='1' then a[i]:='33';
if a[i]='2' then a[i]:='1';
if a[i]='3' then a[i]:='2';
end;
for i:=1 to 5 do
write(a[i]);
<span>end.
Ответ: </span>331212
Входные данные: 147*(5)
И так, я предлагаю посмотреть сколько "5" удаляется за 1 раз
````````````````````````````````````````````````````````````````
<span>ПОКА нашлось (5555) ИЛИ нашлось (3333)
ЕСЛИ нашлось (5555)
ТО заменить (5555, 3)
ИНАЧЕ заменить (3333, 5)
КОНЕЦ ЕСЛИ
</span>
<span>````````````````````````````````````````````````````````````````
5555 --> 3
Уходит четыре "5".
147 / 4 = 36 (3)
36 раз у нас "5555" заменится на "3", и останется еще три "5".
Наша строка:(36*(3) + 555)
Теперь
"3333" ---> 5
36 / 4 = 9 (0)
9 раз "3333" заменим на "5", получаем
9*(5) + 555 = 12*(5)
"5555" --> 3
12 / 4 = 3(0)
3 раза "5555" заменим на "3"
333
Конец.
Ответ: 333
</span>
Линукс от фамилии чувака который его придумал, мак от макинтош - сорта яблок потому что компания эппл, а виндоус потому что они придумали окна. ну и по той же логике логотипы только не знаю почему у линукс пингвин.