1 Вариант: 1,3,5
2 Вариант: 2,4, 6
1. Задание
Определите, что будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык | Бейсик | Паскаль |
---|---|---|
алг
нач цел s, k s := 8, нц для k от 14 до 18 s := s+6 кц вывод s кон |
DIM k, s AS INTEGER
s = 8 FOR k = 14 TO 18 s = s+6 NEXT k PRINT s |
Var s,k: integer;
Begin s := 8; for k := 14 to 18 do s := s+6; writeln(s); End. |
2. Задание
Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык | Бейсик | Паскаль |
---|---|---|
алгнач цел s, i s := 3 нц для i от 2 до 5 s := s + 2*i кц вывод s кон | DIM i, s AS INTEGERs = 3
FOR i = 2 TO 5
s = s + 2*i
NEXT i
PRINT s
| Var s, i: integer;
Begin
s := 3;
For i := 2 to 5 do
s := s + 2*i;
Writeln(s);
End.
|
3. Задание
Определите, что будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык | Бейсик | Паскаль |
---|---|---|
алгнач цел s, k s := 50 нц для k от 1 до 9 s := s - 3 кц вывод s кон | s = 50
FOR к = 1 TO 9
s = s - 3
NEXT k
PRINT s
END
| Var s, k: integer;
Begin
s := 50;for k := 1 to 9 do s := s - 3; write (s);
End.
|
4. Задание
Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык | Бейсик | Паскаль |
---|---|---|
алгнач цел s, k s := 50 нц для k от 0 до 8 s := s - 4 кц вывод s кон | DIM k, s AS INTEGERs = 50
FOR к = 0 TO 8
s = s - 4
NEXT k
PRINT s
END
| Var s,k: integer;
Begin
s := 50;for k := 0 to 8 do s := s - 4; writeln(s);
End.
|
5. Задание
Определите, что будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык | Бейсик | Паскаль |
---|---|---|
алгнач цел s, k s := 100 нц для k от 1 до 9 s := s - 5 кц вывод s кон | DIM k, s AS INTEGERs = 100
FOR k = 1 TO 9
s = s - 5
NEXT k
PRINT s
END
| Var s, k: integer;
Begin
s := 100;for k := 1 to 9 do s := s - 5; write (s);
End.
|
6. Задание
Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык | Бейсик | Паскаль |
---|---|---|
алгнач цел s, k s := 8 нц для k от 3 до 8 s := s + 8 кц вывод s кон | DIM k, s AS INTEGERs = 8
FOR к = 3 TO 8
s = s + 8
NEXT k
PRINT s
| Var s,k: integer;
Begin
s := 8;for k := 3 to 8 do s := s + 8; writeln(s);
End.
|
Комментариев нет:
Отправить комментарий