задания типа 9 (часть 5)
39. Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования. Алгоритмический язык | Бейсик | Паскаль | алг нач цел s, k s := 0 нц для k от 3 до 8 s := s+7 кц вывод s кон | DIM k, s AS INTEGER s = 0 FOR k = 3 TO 8 s = s+7 NEXT k PRINT s | Var s,k: integer; Begin s := 0; for k := 3 to 8 do s := s+7; writeln(s); End. |
40. Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования. Алгоритмический язык | Бейсик | Паскаль | алг нач цел s, k s:=0, нц для k от 1 до 10 s:=s+14 кц вывод s кон | s=0 FOR k=1 TO 10 s=s+14 NEXT k PRINT s END | Var s,k: integer; Begin s:=0; for k:=1 to 10 do s:=s+14; write(s); End. |
41. Определите, что будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования. Алгоритмический язык | Бейсик | Паскаль | алг нач цел s, k s:=100 нц для k от 1 до 10 s:=s+11 кц вывод s кон | s=100 FOR k=1 TO 10 s=s+11 NEXT k PRINT s END | Var s,k: integer; Begin s:=100; for k:=1 to 10 do s:=s+11; write(s); End. |
42. Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования. Алгоритмический язык | Бейсик | Паскаль | алг нач цел s, k s := 7, нц для k от 13 до 18 s := s+9 кц вывод s кон | DIM k, s AS INTEGER s = 7 FOR k = 13 TO 18 s = s+9 NEXT k PRINT s | Var s,k: integer; Begin s := 7; for k := 13 to 18 do s := s+9; writeln(s); End.
|
43. Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования. Алгоритмический язык | Бейсик | Паскаль | алг нач цел s, k s := 9, нц для k от 13 до 17 s := s+7 кц вывод s кон | DIM k, s AS INTEGER s = 9 FOR k = 13 TO 17 s = s+7 NEXT k PRINT s | Var s,k: integer; Begin s := 9; for k := 13 to 17 do s := s+7; writeln(s); End.
|
44. Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования. Алгоритмический язык | Бейсик | Паскаль | алг нач цел s, k s := 0 нц для k от 14 до 18 s := s+7 кц вывод s кон | DIM k, s AS INTEGER s = 0 FOR k = 14 TO 18 s = s+7 NEXT k PRINT s | Var s,k: integer; Begin s := 0; for k := 14 to 18 do s := s+7; writeln(s); End.
|
|