Помогите пожалуйста (кто знает паскаль) дана программа: 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) ...
Помогите пожалуйста (кто знает паскаль)
дана программа:
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 >= n) and (g <= m) then i := j;
if (j = 1) then n := n + 1;
n := n + 100;
m := m + 100;
end;
write(i);
end.
Не нашли ответ?
Похожие вопросы