РЕШИТЬ В ТЕТРАДИ
1. Определить, что будет напечатано в результате работы следующего алгоритма.
алг
нач
цел s, k
s : = 3
нц для k от 2 до 5
s : = s + 2 * k
кц
вывод s
кон
2. Определить, что будет напечатано в результате работы следующего алгоритма.
алг
нач
цел s, k
s : = 110
нц для k от 5 до 11
s : = s - 6
кц
вывод s
кон
3. Определить, что будет напечатано в результате работы следующего алгоритма.
алг
нач
цел s, k
s : = 1
нц для k от 3 до 8
s : = s *2
кц
вывод s
кон
4. Определить, что будет напечатано в результате работы следующего алгоритма.
алг
нач
цел s, k
s : = 100
нц для k от 3 до 6
s : = s + k
кц
вывод s
кон
var
c, a: array[1..20] of integer;
i: integer;
begin
write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 1 to 20 do begin
a[i] := c[20 - i + 1];
write(a[i], ' ');
end;
end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var
c: array[1..20] of integer;
i: integer;
begin write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 20 downto 1 do write(c[i], ' ');
end.
Обе программы работают!
for i := 10 to 99 do - начало цикла с параметром, i - параметр цикла, 10 - начальное значение параметра, 99 - конечное значение параметра. Т.е. цикл будет выполняться 90 раз, параметр i будет принимать последовательно значения 10, 11, 12, ..., 99.
if (i mod 13 = 0) and (i mod 2 <> 0) then - условный оператор. В условии используется операция mod - определение остатка от целочисленного деления. (i mod 13 = 0) - это условие будет выполняться для чисел, которые делятся на 13 без остатка; (i mod 2 <> 0) - это условие будет выполняться для чисел, которые делятся на 2 с остатком (это нечетные числа). Таким образом, условие (i mod 13 = 0) and (i mod 2 <> 0) будет иметь значение true для нечетных чисел, которые делятся на 13 без остатка (это 13, 39, 65, 91).
Программа в целом вычисляет произведение нечетных чисел, которые делятся на 13 без остатка.
(В программе есть ошибка. Тип переменной s должен быть integer.)