Простейший циклический алгоритм, записанный на алгоритмическом языке

Ответами к заданиям являются слово, словосочетание, число или последовательность слов, чисел.

1

Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.

Алгоритмический язык

алг
нач
    цел s, к
    s := 1
    нц для к от 2 до 7
        s := s + 100
    кц
    вывод S
кон

Бейсик

s = 1
FOR к = 2 ТО 7
    s = s + 100
NEXT к
PRINT s
END

Паскаль

var s, k: integer;
begin
    s := 1;
    for k := 2 to 7 do
        s := s + 100;
    write (s);
end.

2

Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.

Алгоритмический язык

алг
нач
 цел s, к
 s := 40
 нц для к от 1 до 7
  s := s - 3
 кц
 вывод S
кон

Бейсик

s = 40
FOR к = 1 ТО 7
 s = s - 3
NEXT к
PRINT s
END

Паскаль

var s, k: integer;
begin
 s := 40;
 for k := 1 to 7 do
  s := s - 3;
 write (s);
end.

3

Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.

Алгоритмический язык

n = 0
FOR i = 1 ТО 
13
n= (n+i)+3 
NEXT i 
PRINT n 
END

Бейсик

var i, n: integer;
begin
n:=0;
for i:=l to 13 do 
n:=(n+i)+3; 
write (n); 
end.

Паскаль

алг
нач
цел i, n 
n:=0,
нц для i от 1 до 13 
n:=(n+i)+3
кц
вывод n 
кон

4

Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.

Алгоритмический язык

алг
нач
 цел s, к
 s := 1
 нц для к от 0 до 9
  s := s + 5
 кц
 вывод S
кон

Бейсик

s = 1
FOR к = 0 ТО 9
 s = s + 5
NEXT к
PRINT s
END

Паскаль

var s, k: integer;
begin
 s := 1;
 for k := 0 to 9 do
  s := s + 5;
 write (s);
end.

5

Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.

Алгоритмический язык

алг
нач
 цел s, к
 s := 15
 нц для к от 0 до 10
  s := s + 2
 кц
 вывод S
кон

Бейсик

s = 15
FOR к = 0 ТО 10
 s = s + 2
NEXT к
PRINT s
END

Паскаль

var s, k: integer;
begin
 s := 15;
 for k := 0 to 10 do
  s := s + 2;
 write (s);
end.

6

Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.

Бейсик

s = 0 n=12
FOR i = 1 ТО 10 
s= s+n-i 
NEXT i 
PRINT S 
END

Паскаль

var s, n, i: integer; 
begin
s:=0; n:=12; 
for i:=1 to 10 do 
s:=s+n-i; 
write (s); 
end.

Алгоритмический язык

алг
нач
цел s, n, i
s:=0,
n:=12,
нп для i от 1 до 10
s:= s+n-i 
 кц
вывод s 
кон

7

Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.

Алгоритмический язык

алг
нач
    цел s, к
    s := 110
    нц для к от 5 до 12
        s : = s - 5
    кц
    вывод s
кон

Бейсик

s = 110
FOR к = 5 ТО 12
    s = s — 5
NEXT к
PRINT s
END

Паскаль

var s, k: integer;
begin
    s := 110;
    for k := 5 to 12 do
        s : = s - 5;
    write(s);
end.

8

Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.

Алгоритмический язык

алг
нач
 цел s, к
 s := 0
 нц для к от 6 до 12
  s := s + 10
 кц
 вывод S
кон

Бейсик

s = 0
FOR к = 6 ТО 12
 s = s + 10
NEXT к
PRINT s
END

Паскаль

var s, k: integer;
begin
 s := 0;
 for k := 6 to 12 do
  s := s + 10;
 write (s);
end.

9

Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.

Алгоритмический язык

алг
нач
 цел s, к
 s := 60
 нц для к от 1 до 8
  s := s - 4
 кц
 вывод S
кон

Бейсик

s = 60
FOR к = 1 ТО 8
 s = s - 4
NEXT к
PRINT s
END

Паскаль

var s, k: integer;
begin
 s := 60;
 for k := 1 to 8 do
  s := s - 4;
 write (s);
end.

10

Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трех языках программирования.

Алгоритмический язык

алг
нач
 цел s, к
 s := 2
 нц для к от 1 до 3
  s := s * s
 кц
 вывод S
кон

Бейсик

s = 2
FOR к = 1 ТО 3
 s = s * s
NEXT к
PRINT s
END

Паскаль

var s, k: integer;
begin
 s := 2;
 for k := 1 to 3 do
  s := s * s;
 write (s);
end.