nickname0091
?>

Впрограмі python скласти програму: дано ціле число. якщо воно є додатнім, то додати до нього 1 в іншому випадку відняти від нього 2. вивести отримане число. приклад вхідних даних 7 приклад вихідних даних 8 приклад вхідних даних -7 приклад вихідних даних -9

Информатика

Ответы

AndreevManaeva
Var     n, i, j: integer; begin       readln(n);       for i : = 1 to n do       begin           for j : = 1 to n do               if ((j + i) mod 2 = 0) then                 write('w': 2)               else                   write('b': 2);           writeln;       end; end.
vshumilov
Var    i, j, k : integer;     a : array [0..9,0..9] of char;   procedure u(i,j: integer);     var c : char;   begin    c: =a[i,j]; a[i,j]: =' ';     if (c='w')and(a[i+1,j]='b') then u(i+1,j);   if (c='b')and(a[i+1,j]='w') then u(i+1,j);     if (c='w')and(a[i-1,j]='b') then u(i-1,j);     if (c='b')and(a[i-1,j]='w') then u(i-1,j);     if (c='w')and(a[i,j+1]='b') then u(i,j+1);     if (c='b')and(a[i,j+1]='w') then u(i,j+1);     if (c='w')and(a[i,j-1]='b') then u(i,j-1);     if (c='b')and(a[i,j-1]='w') then u(i,j-1);   end;   begin    assign(input,'input.txt'); reset(input);     assign(output,'output.txt');   rewrite(output);     for i: =1 to 8 do begin    for j: =1 to 8 do   read(a[i,j]);     readln    end;     for i: =1 to 8 do   begin    a[0,i]: =' '; a[9,i]: =' ';     a[i,0]: =' '; a[i,9]: =' '    end;     k: =0;     for i: =1 to 8 do    for j: =1 to 8 do    if a[i,j]< > ' ' then begin    k: =k+1; u(i,j)    end;     write(k);     close(output)  end. 

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Впрограмі python скласти програму: дано ціле число. якщо воно є додатнім, то додати до нього 1 в іншому випадку відняти від нього 2. вивести отримане число. приклад вхідних даних 7 приклад вихідних даних 8 приклад вхідних даних -7 приклад вихідних даних -9
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

femida69
nzaripova313
zimbickij19
bas7572513
ivanovanata36937365
dmdlir
mgrunova
mon84
lenarzhaeva
Абдулганиева Сергей
vladexi
MAXIM76748
strelnikov-aa
zhannasokortova
inbox466