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