Var x:integer;
begin
write('Введите число: ');
readln(x);
if x mod 6=0 then writeln(sqr(x))
<span>end.</span>
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
<span>1)из (14) наливаем в (5)</span>
<span>2)из (5) наливаем в (9)</span>
<span>3)повторяем пункт 1 </span>
<span>4)из (5) наливаем в (9) остается 1л</span>
<span>5)переливаем из (9) в (14)</span>
<span>6)выливаем 1л из (5) в (9)</span>
<span>7)из (14) наливаем в (5)</span>
<span>8)из (5) наливаем в (9) </span>
<span>в битоне(9) находится 6л молока</span>
<span>9)из (14) наливаем в (5)</span>
<span>10)из (5) наливаем в (9) </span>
<span>в битоне (5) остается 2л молока</span>
<span>11)переливаем из (9)в (14)</span>
<span>12)наливаем в (9) 2л молока из (5) </span>
<span>13)из (14) наливаем в (5)</span>
<span>14)из (5) переливаем в (9)</span>
Var n,m:longint;
Begin
Read(n,m);
Write((n mod m)*(m mod n)+1)
End.
Прялка: 3 последние отбрасываем, вместо Я - О: ПРО
Гиря в 1 грамм: ГРАММ
Аист - отбрасываем 1-ю букву: ИСТ.
Итого: ПРОГРАММИСТ.