Vari:integer;beginfor i:=100 to 999 do beginif (i mod 15=11) and (i mod 11=9) thenwrite(i+' ');end;end. Писал на скорую руку,могут быть ошибки
1.<span>Виды информации, воспринимаемые с помощью орган чувств.</span>
2.Символ
3.Носитель информации
Var
A:array[1..33] of integer;
i:integer;
Begin
For i:= 1 to 33 do
Begin
A[i]:=random(201)-100;
Write(A[i],' ');
End;
End.
Var
a, b, d, y, x, x0: real;
begin
writeln('Пожалуйста, введите границы отрезка: ');
readln(a, b);
writeln('Пожалуйста, введите шаг: ');
readln(d);
y := sqr(x) + 1 / (x - 4);
x0 := a;
while (x0 <= b) do
begin
if ((x0 - 4) = 0) then writeln('Возникло деление на ноль!') else
writeln('Значение функции f(x) в точке x0 = ', x0, ' = ', sqr(x0) + 1 / (x0 - 4));
x0 := x0 + d;
end;
readln;
end.
№6 Ответ : 3) 4 это же легко! ну может для тебя и нет но.. хз)0)