Алгоритмический язык | Бейсик | Паскаль |
алг нач цел s, k s := 9 нц для k от 3 до 7 s := s + 9 кц вывод s кон | DIM k, s AS INTEGER s = 9 FOR k = 3 TO 7 s = s + 9 NEXT k PRINT s
| Var s,k: integer; Begin s := 9; for k := 3 to 7 do s := s + 9; writeln(s); End.
|
25. Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык | Бейсик | Паскаль |
алг нач цел s, k s := 7 нц для k от 4 до 8 s := s + 7 кц вывод s кон | DIM k, s AS INTEGER s = 7 FOR k = 4 TO 8 s = s + 7 NEXT k PRINT s
| Var s,k: integer; Begin s := 7; for k := 4 to 8 do s := s + 7; writeln(s); End.
|
26. Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык | Бейсик | Паскаль |
алг нач цел s, k s := 7 нц для k от 3 до 9 s := s + 7 кц вывод s кон | DIM k, s AS INTEGER s = 7 FOR k = 3 TO 9 s = s + 7 NEXT k PRINT s
| Var s,k: integer; Begin s := 7; for k := 3 to 9 do s := s + 7; writeln(s); End.
|
27. Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык | Бейсик | Паскаль |
алг нач цел s, k s := 9 нц для k от 2 до 7 s := s + 9 кц вывод s кон | DIM k, s AS INTEGER s = 9 FOR k = 2 TO 7 s = s + 9 NEXT k PRINT s
| Var s,k: integer; Begin s := 9; for k := 2 to 7 do s := s + 9; writeln(s); End. |