Решение 6 задания ОГЭ по информатике (6.5) про циклические алгоритмы

1
2
3
4
5
6
7

var s, k:integer;
begin
s:= 100;
for k:= 0 to 10 do
s:= s - 5;
writeln (s);
end.

var s, k:integer; begin s:= 100; for k:= 0 to 10 do s:= s - 5; writeln (s); end.

1
2
3
4
5
6
7
8

DIM s AS INTEGER
DIM k AS INTEGER
s = 100
FOR k = 0 TO 10
s = s – 5
NEXT k
PRINT s
END

DIM s AS INTEGER DIM k AS INTEGER s = 100 FOR k = 0 TO 10 s = s – 5 NEXT k PRINT s END

1
2
3
4
5
6
7

Var s, k: integer;
Begin
s := 100;
for k := 1 to 9 do
  s := s - 5;
write (s);
End.

Var s, k: integer; Begin s := 100; for k := 1 to 9 do s := s - 5; write (s); End.

1
2
3
4
5
6
7

DIM k, s AS INTEGER
s = 100
FOR k = 1 TO 9
   s = s - 5
NEXT k
PRINT s
END

DIM k, s AS INTEGER s = 100 FOR k = 1 TO 9 s = s - 5 NEXT k PRINT s END