Prog test;
var N,T,sum,M,R,m1,r1,ost;
begin
write('Введите сумму лимонада и мороженного:');
read(N);
read(T);
write('Введите колво лимонадов');
read(M);
write('Введите кол-во мороженных');
read(R);
write('Введите сумму для покупки: ');
read (sum);
m1:=N*M;
r2:=T*R;
while(true)
begin
if(sum< m1+r2) then
write('доплатите ещё');
if (sum>m1+r2) then
ost:=sum-(m1+r2);
write('возмите сдачу', ost);
if(sum= m1+r2) then
write('спасибо за покупку');
end;
end.
Здравствуйте, вы являетесь участником олимпиады НТИ. По правилам олимпиады нельзя использовать готовые решения для прохождения на последующие этапы. Т.к. вы нарушили правила, ваш аккаунт блокируется, и вы отстраняетесь от участия в НТИ. Желаем участия в следующем году.
С уважением,
Модераторы НТИ
var s: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do writeln(s[i]);
end.
Если это был былый шар, то он его достал из чёрных, так как в смеси были бы только чёрные, если это чёрный шарик, то он его достал из коробки белый, , так как в смеси были бы только белые.