9. Простейший циклический алгоритм

Запишите значение переменной s, полученное в результате работы следующей программы.

Текст программы приведён на трёх языках программирования.

Алгоритмический язык

алг
нач
	цел s, k
	s := 0
	нц для k от 6 до 12
		s := s+10
	кц
	вывод s
кон

123456789

алгнач цел s, k s := 0 нц для k от 6 до 12 s := s+10 кц вывод sкон

Бейсик

Visual Basic

DIM k, s AS INTEGER
s = 0
FOR k = 6 TO 12
	s = s+10
NEXT k
PRINT s

123456

DIM k, s AS INTEGERs = 0FOR k = 6 TO 12 s = s+10NEXT kPRINT s

Паскаль

Delphi/Pascal

Var s,k: integer;
Begin
	s := 0;
	for k := 6 to 12 do
		s := s+10;
	writeln(s);
End.

1234567

Var s,k: integer;Begin s := 0; for k := 6 to 12 do s := s+10; writeln(s);End.

Демонстрационный вариант Основнóй госудáрственный экзáмен ОГЭ 2017 г. – задание №9

Определите, что будет напечатано в результате работы следующей программы.

Var s,k: integer;
Begin
  s := 0;
  for k := 4 to 8 do
    s := s+7;
  writeln(s);
End.

1234567

Var s,k: integer;Begin s := 0; for k := 4 to 8 do s := s+7; writeln(s);End.

Определите, что будет напечатано в результате работы следующей программы.

Var k,i: integer;
Begin
  k := 4;
  For i := 1 to 3 do
    k := 2*k + i;
  Writeln(k);
End.

1234567

Var k,i: integer;Begin k := 4; For i := 1 to 3 do k := 2*k + i; Writeln(k);End.

Определите, что будет напечатано в результате работы следующей программы.

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

1234567

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