НУЖНА Определите, что будет выведено в результате работы программы. Запишите условие задачи, для решения которой составлен алгоритм.
var
m: integer;
begin
m:=154;
while (m mod 16<>0) do
m:=m+1;
writeln (‘M= ’, m);
end.

Программа выведет число 160.

Записать условие задачи можно например так: увеличивать некоторое целое число на 1 до тех пор, пока оно не разделится на 16 без остатка.

Объяснение:

Эта программа увеличивает целое число m на 1 до тех пор, пока остаток от деления его на 16 не равен 0.

Дано целое число m.

Ему присвоено первоначальное значение = 154.

Затем выполняется цикл:

пока (остаток от деления m на 16 ≠ 0) выполнять

m увеличить на 1.

Как только в результате циклического увеличения числа m на 1 получится число, которое без остатка делится на 16, цикл заканчивает свою работу и выполняется следующая команда программы:

Записать (‘M= ’, m); - вывод результата на экран.

В результате работы программы будет выведено число 160.

Записать условие задачи можно например так:

увеличивать некоторое целое число на 1 до тех пор, пока оно не разделится на 16 без остатка.

dim a(12), b(12), c(12)

input "введите размерность массивов а и в - m= ", m 

print "введите элементы массивов а и в: "

for i=1 to m

  input a(i), b(i) 

next i

s=0

for i = 1 to m

  c(i)= a(i) + b(m-i+1)

  s= s+c(i)

next i 

print "массив а: " 

for i = 1 to m

    print a(i);

next   i 

print

print "массив b: " 

for i = 1 to m

    print b(i);

next   i 

print

print "массив c: " 

for i = 1 to m

    print c(i);

next   i 

print

print "сумма элементов массива с ="; s

program kvadrat;

var i : integer;

begin

for i: = 10 to 100 do

writeln ( i: 2, i*i : 5);

readln;

end.