(кто знает паскаль) дана программа: var g: integer; - вопрос №6013385 от Selrr 14.07.2021 08:15

Question

Информатика: (кто знает паскаль) дана программа: var g: integer; i: integer; begin readln(g); if (g =0) and (g =100) then i: = 1; if (g =101) and (g =200) then i: = 2; if (g =201) and (g =300) then i: = 3; if (g =301) and (g =400) then i: = 4; if (g =401) and (g =500) then i: = 5; if (g =501) and (g =600) then i: = 6; if (g =601) and (g =700) then i: = 7; if (g =701) and (g =800) then i: = 8; writeln(i) end. можно ли сократить ее? и как, каким оператором?

Selrr · Answer

Var  g, i, j, m, n: integer;begin  m := 100;  read(g);  for j := 1 to 8 do begin    if(g = n) and (g = m) then i := j;    if (j = 1) then n := n + 1;    n := n + 100;     m := m + 100;  end;  write(i);end....