В бутылке минеральная вода. Сейчас стакан не стоит между чаем и молоком. Поставить стакан между бутылкой с минеральной водой и кружкой нельзя, так как тогда он будет стоять между минеральной водой, а должен стоять рядом с чаем и молоком. Значит, стакан можно поставить между кружкой и чашкой. Стакан оказывается в середине, значит, в нем кофе. Молоко не может быть в кружке, так как по соседству с молоком будет кофе и минеральная вода, а рядом с молоком должен быть квас. Значит, молоко в чашке. Так как по соседству с молоком должен быть квас, то в кувшине квас.
Ответ: в бутылке минеральная вода, в кружке чай, в чашке молоко, в стакане кофе, в кувшине квас.
Var
p, q: real;
begin
writeln('Введите исходные данные:');
write('Цена одного килограмма яблок (руб.) -> ');
readln(p);
write('Вес яблок (кг) -> ');
readln(q);
writeln('Стоимость покупки: ', (p * q):6:2, ' руб.');
end.
Program pr;
uses crt;
Var x, y, buf:integer;
Begin
Write('Введите x ');
readln(x);
Write('Введите y ');
readln(y);
if x>y then
Begin
buf:=x;
x:=y;
y:=buf;
end;
Writeln('x = ',x);
Write('y = ',y);
readln;
<span>end.</span>
Первая программа
var x,s,z:integer;
begin
writeln('Введите целое число:');
readln(x);
z:=x;
while z <> 0 do begin
s:=s + z mod 10;
z:=z div 10;
end;
writeln('Сумма цифр числа ',x,' равна ',s);
end.
Вторая программа
var x,i,z,j,k,leng:integer;
a:array of integer;
begin
writeln('Введите целое число:');
readln(x);
z:=x;
while z <> 0 do begin
leng += 1;
z:=z div 10;
end;
SetLength(a,leng+1);
for i:=leng downto 1 do begin
a[i]:=x mod 10;
x:=x div 10;
end;
for i:=1 to leng do begin
for j:=i to leng-1 do begin
if(a[i] = a[j+1]) then
k += 1;
end;
end;
if(k > 0) then
writeln('Да')
else
writeln('Нет');
end.