Какое наименьшее целое значение k необходимо подать на вход программы,
чтобы в результате её выполнения напечаталось число 12?
Var
k, s : integer;
Begin
read(k);
s := 10;
while s < k do begin
s := s + 1;
k := k – s
End;
write(s)
end.

21,24,27,30,33,36,39,42,45,48

в секунду передается 512кбит=512/8кбайт=64кбайт

за четыре минуты передалось 4*60*64=15360кбайт

в одном мбайте 1024 кбайт ⇒15360кбайт=15360/1024мбайт=15мегабайт

ответ: 15 мегабайт

ваня на п

саша на в

коля на с

петя на к 

var a,b: integer;

begin

  read(a,b);

  writeln("s=",a*b/2);

end.