СРОЧНО!! доделайте пожалуйста этот код по информатике
var n,s:integer; begin writeln('Выбор кофе:1- латте, 2- американо, 3 - капучино'); readln(n); if n=1 then writeln('латте -120рб'); if n=2 then writeln('американо -100рб'); if n=3 then writeln('капучино -150рб'); write('оплатите');readln(s); if n=1 then if s>=120 then writeln('ждите кофе') else writeln('недостаточно средств'); if n=1 then if s>120 then writeln('возьмите сдачу',s-120); if n=2 then if s>=100 then writeln('ждите кофе') else writeln('недостаточно средств'); if n=2 then if s>100 then writeln('возьмите сдачу',s-100); end.
Ответы
Ответ:
Program Answer;
uses SysUtils;
var n, s : integer;
begin writeln('Выбор кофе:1- латте, 2- американо, 3 - капучино');
readln(n);
if n=1 then writeln('латте -120рб');
if n=2 then writeln('американо -100рб');
if n=3 then writeln('капучино -150рб');
write('Оплатите');
readln(s);
if n=1 then
if s>=120 then
begin
writeln('Ждите кофе..');
sleep(5000);
if s>120 then writeln('Возьмите сдачу! Ваш кофе готов!', s-120)
else
begin
writeln('Ваш кофе готов!');
end;
exit;
end
else
begin
writeln('Недостаточно средств');
end;
if n=2 then
if s>=100 then
begin
writeln('Ждите кофе..');
sleep(5000);
if s>100 then writeln('Возьмите сдачу! Ваш кофе готов!', s-100)
else
begin
writeln('Ваш кофе готов!');
end;
exit;
end
else
begin
writeln('Недостаточно средств');
end;
if n=3 then
if s>=150 then
begin
writeln('Ждите кофе..');
sleep(5000);
if s>150 then writeln('Возьмите сдачу! Ваш кофе готов!', s-150)
else
begin
writeln('Ваш кофе готов!');
end;
exit;
end
else
begin
writeln('Недостаточно средств');
end;
end.