Задание 3. Запишите значение переменной s, полученное в результате работы следующей
программы. Текст программы приведён на трёх языках программирования.
Алгоритмический
язык
Бейсик Паскаль
алг
нач
цел s, n
s := 5
нц для n от 2 до 4
DNM n, s AS INTEGER
s = 5
FOR n = 2 TO 4
s = s + (n-1)
NEXT n
PRINT s
Var s, n: integer;
Begin
s := 5;
For n := 2 to 4
do
s := s + (n-1);s := s + (n-1)
кц
вывод s
кон
Writeln(s);
End.
Задание 4. Запишите значение переменной y, полученное в результате работы следующей
программы. Текст программы приведён на трёх языках программирования.
Алгоритмический
язык
Бейсик Паскаль
алг
нач
цел s, n
s := 2
нц для n от 2 до 5
s := s*2 + n
кц
вывод s
кон
DNM n, s AS INTEGER
s = 2
FOR n = 2 TO 5
s = s*2 + n
NEXT n
PRINT s
Var s, n: integer;
Begin
s := 2;
For n := 2 to 5
do
s := s*2 + n;
Writeln(s);
End.
Задание 5. Запишите значение переменной t, полученное в результате работы следующей
программы. Текст программы приведён на трёх языках программирования.
Алгоритмический
язык
Бейсик Паскаль
алг
нач
цел t,i
t := 1
нц для i от 1 до 4
t := t * i
кц
вывод t
кон
DIM i,t AS INTEGER
t = 1
FOR i = 1 TO 4
t = t * i
NEXT i
PRINT t
Var t,i: integer;
Begin
t := 1;
For i := 1 to 4 do
t := t * i;
Writeln(t);
End