Помогите пожалуйста (кто знает паскаль) дана программа: var g: integer; i: integer; begin...

Question

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

var g: integer;
i: integer;
begin
readln(g);
if (g>=0) and (g<=100) then i:= 1;<br> if (g>=101) and (g<=200) then i:= 2; <br> if (g>=201) and (g<=300) then i:= 3;<br> if (g>=301) and (g<=400) then i:= 4;<br> if (g>=401) and (g<=500) then i:= 5;<br> if (g>=501) and (g<=600) then i:= 6;<br> if (g>=601) and (g<=700) then i:= 7;<br> if (g>=701) and (g<=800) then i:= 8;<br> writeln(i)
end.

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

Comments

я алгоритм скажу можно добавленое число в строку перевести и первую число взять и прибавить один и печатать

---

давай

---

в бейсике?

---

ну го

---

а на паскале не знаешь?

---

ок

---

INPUT gIF g <= 100 THEN PRINT "1"t$ = STR$(g)k = VAL(MID$(t$, 2, 1))PRINT k + 1

---

спасибо

---

я паскаль не очень хорошо знаю по этому не могу перевести это на паскаль(

---

эх жаль(((((

Answer 1

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;<br>    if (j = 1) then n := n + 1;
    n := n + 100;
     m := m + 100;
  end;
  write(i);
end.