Журналист
Perirdred 1 ноября 2019 в 08:12

Помогите пожалуйста (кто знает паскаль)
дана программа:

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.

можно ли сократить ее? и как, каким оператором?

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

Компьютеры и вычисления
Для комментирования необходимо зарегистрироваться на сайте