Шоколад - x;
зефир - y;
x+y=15000;
y=12000;
x=15000-12000=3000;
Ответ: 3000
program project1;
var s: integer;
var d: array[1..12] of integer;
var i: integer;
begin
for i:=1 to 12 do
begin
write('Введите число №');
write(i);
write('> ');
readln(d[i]);
end;
for i:=1 to 12 do
begin
s:= s + d[i];
end;
writeln(s);
end.
Получится ЕЧПОМОИАИТ, подряд идут согласные ЧМП, ЗНАЧИТ ПОЛУЧИТСЯ 3
Var
i:integer;
begin
i:=33300;
while (i mod 55 <> 0) do begin
i:=i+1;
end;
writeln(i,'/55=',i/55);
end.
Var a,b:integer;
Begin
randomize;
a:=random(80001)-40000;
b:=random(80001)-40000;
if a>b then writeln(b,', ',a)
else writeln(a,', ',b);
End.