Семейное задание от 24.04.2017Задание 1. Запишите значение переменной s, полученное в

Домашнее задание от 24.04.2017
Задание 1. Запишите значение переменной s, приобретенное в итоге работы следующей
программки. Текст программки приведён на трёх языках программирования.
Алгоритмический
язык
Бейсик Паскаль
алг
нач
цел s, k
s := 0
нц для k от 13 до 16
s := s + 14
кц
вывод s
кон
DIM k, s AS INTEGER
s = 0
FOR к = 13 TO 16
s = s + 14
NEXT k
PRINT s
Var s,k: integer;
Begin
s := 0;
for k := 13 to 16 do
s := s + 14;
writeln(s);
End.
Задание 2. Определите, что будет написано в итоге работы последующей программки.
Текст программки приведён на трёх языках программирования.
Алгоритмический
язык
Бейсик Паскаль
алг
нач
цел s, k
s := 2
нц для k от 1 до 3
s := s*s
кц
вывод s
кон
s = 2
FOR к = 1
TO 3
s = s*s
NEXT k
PRINT s
END
Var s, k: integer;
Begin
s := 2;
for k := 1 to 3 do
s := s*s;
write (s);
End.
Задание 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.