Ответ:
var i: integer;
begin
for i:=10 to 99 do
if (i mod 7 = 0) and (616 mod i = 0) then writeln (i)
end.
var
a,P:integer;
begin
writeln('Введите периметр равнобедренного треугольника: ');
read(P);
writeln('Введите основание равнобедренного треугольника: ');
read(a);
writeln('Боковая сторона равнобедренного треугольника: ',(P-a)/2);
<span>end.</span>
Берет козу и едет на др берег
Возвращается
Берет волка едет на другой берег
На другом берегу оставляет волка забирает козу
Едет на другой берег оставляет козу берет капусту
Едет на другой берег оставляет капусту
Возвращается
Забирает козу и едет на др берег
<span>Cele dintai lecturi - Первое чтение</span>