•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;...
•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,ты чо вроде как бы
Не нашли ответ?
Похожие вопросы