Program pbc; var a,q,n: integer;begin writeln('введите десять чисел'); readln(a); q:=1; n:=1; while (n<>10) do begin if (a>=20) and (a<=40) then q:=a*q; readln(a); n:=n+1; end; writeln('ответ ',q); end.
У той хозяйки, у которой 3 литра в 5-литровом бидоне: её молоко выльют 2 литра в пустой 2-литровый бидон и 1 литр первой хозяйке, у которой 5 литров в 6-литровом бидоне. Таким образом сейчас у второй хозяйки пустой бидон, а 2-литровый полный и у первой хозяйки полный. Теперь из 2-литрового выливаем второй хозяйке в 5-литровый бидон и у неё становится 2 литра молока. Теперь первая хозяйка наполнит из своего бидона снова 2-литровый и эти два литра выльют второй хозяйке. таким образом, у второй хозяйки 4 литра и у первой 4 литра
У той хозяйки, у которой 3 литра в 5-литровом бидоне: её молоко выльют 2 литра в пустой 2-литровый бидон и 1 литр первой хозяйке, у которой 5 литров в 6-литровом бидоне. Таким образом сейчас у второй хозяйки пустой бидон, а 2-литровый полный и у первой хозяйки полный. Теперь из 2-литрового выливаем второй хозяйке в 5-литровый бидон и у неё становится 2 литра молока. Теперь первая хозяйка наполнит из своего бидона снова 2-литровый и эти два литра выльют второй хозяйке. таким образом, у второй хозяйки 4 литра и у первой 4 литра
var a,q,n:
integer;begin
writeln('введите десять чисел');
readln(a);
q:=1;
n:=1;
while (n<>10) do
begin
if (a>=20) and (a<=40) then
q:=a*q;
readln(a);
n:=n+1;
end;
writeln('ответ ',q);
end.