Vari:integer;beginfor i:=100 to 999 do beginif (i mod 15=11) and (i mod 11=9) thenwrite(i+' ');end;end. Писал на скорую руку,могут быть ошибки
Program task;
var i,a:real;
begin
i:=-4;
while (i<=4) do begin
a:=(i*i*i)-(i*i)+16*i-43;
writeln(a:0:2);
i+=0.5;
end;
readln;
<span>end.</span>
А) Переключать каналы, убавить или повысить яркость, поставить таймер на отключение, прибавить или убавить звук, поменять расширение экрана и тд.
Б) Всасывать пыль
В) Что угодно))