4 года назад

Вывести все числа кратные 5 от -100 до +100.

1 ответ:

Vipkars68744 года назад

0 0

Все числа которые делятся на 5 без остатка в данном случае

<u>+</u> 100 ,95 , 90, 85, 80, 75, 70, 65, 60, 55, 50, 45, 40, 35, 30, 25, 20, 15, 10, 5

Читайте также

Мистер Фокс разрабатывает новую компьютерную игру со следующим сюжетом. Есть прямоугольник 7××9, в левом верхнем углу которого с

В2304

6 - минимальное количество ходов, за которое можно добраться до любой клетки.

Программа на паскале:

const
m = 7;
n = 9;
p = n*m;

dx: array [1..8] of integer = (-2, -1, 1, 2, 2, 1, -1, -2);
dy: array [1..8] of integer = (1, 2, 2, 1, -1, -2, -2, -1);

var
a: array [1..m, 1..n] of integer;
x,y: array [1..p] of integer;
i,j,l: integer;
t: boolean;

begin
for i := 1 to p do
    begin
    x[i] := -1;
    y[i] := -1;
    end;

for i := 1 to m do
for j := 1 to n do
    a[i,j] := -1;

a[1,1] := 0;
x[1] := 1;
y[1] := 1;
l := 1;

for i := 1 to p do
    if x[i] <> - 1 then
    for j := 1 to 8 do
      if (x[i] + dx[j] > 0) and (x[i] + dx[j] <= m) then
      if (y[i] + dy[j] > 0) and (y[i] + dy[j] <= n) then
      if a[ x[i] + dx[j], y[i] + dy[j] ] = -1 then
        begin
        l := l + 1;
        x[l] := x[i] + dx[j];
        y[l] := y[i] + dy[j];
        a[ x[l], y[l] ] := a[ x[i], y[i] ] + 1;
        end;

for i := 1 to p do if x[i] <> -1 then
    writeln(i:2,' - ',x[i],':',y[i],' - ',a[ x[i], y[i] ],' ');

end.

0 0

4 года назад

Отметьте учтройства,предназначенные для вывода информации. 1. принтер. 2. наушники. 3. процессор. 4. клавиатура. 5. монитор. 6.

yanuragan [11]

1.принтер
5.монитор
2.наушники,10.акустические колонки -устройства вывода звуковой информации.

0 0

3 года назад

Назовите устройства кодирования и декодирования при использовании радиосвязи

Янааа

Модулятор и демодулятор

0 0

3 года назад