Var x,y,c,k,i,a,b:integer;
begin
readln(x,y,a,b);
If (x mod 2=0) or (y mod 2=0) then
c:=(x+y) div 2
else
c:=x mod y;
For i:=1 to 15 do
k:=k+i;
While x<=100 do
x:=x*2;
a:=a+b;
b:=a-b;
a:=a-b;
Writeln(c,' ',k,' ',x,' ',a,' ',b);
end.
var a,b:integer;
Begin
randomize;
a:=random(99);
writeln('Дополните ', a);
read(b);
if (a+b=100) then writeln(':-)')
else writeln(':-(');
end.
кучу монет разделить на 2 кучи и взвесить их
если одна из них будет легче то ее еще раз поделить и так-взвесить
если одна куча легче другой значит и монета легче
1. a)
б)
в)
2. Вася работает на стройке. В первый день Вася натаскал 15кг материалов, во второй - 30, в третий - 10(Столбики А1, А2, А3 соответственно). В А4 запишите сколько вася натаскал за 3 дня. В колонке B запишите(через формулы) отношение за соответствующий день к общему количеству в процентах.
function k15(a:integer):boolean;
begin
k15:=a mod 15 = 0;
end;
var i: integer;
begin
for i:=200 to 300 do
if k15(i) then write(i,' ');
end.
Результат:
210 225 240 255 270 285 300