•TaTaPmember
•ученый
Var a,b,c,i:integer;
begin
writeln( Конфет в вазе левой);
read(a);
writeln( Конфет в вазе средней);
read(b);
writeln( Конфет в вазе правой);
read(c);
repeat
while (a>0) do
begin
i:=i+1;
a:=a-1;
while (b>0) do
begin
i:=i+1;
b:=b-1;
while (c>0) do
begin
i:=i+1;
c:=c-1;
end;
end;
end;
until (a=0) or (b=0) or (c=0);
writeln(i, конфет съела Ленка);
end.
какой это язык програмирования
Это ж Pascal,ты чо вроде как бы
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
