Question

Определите что будет выведено на экран после выполнения следующего алгоритма: Var s:integer; k:real; Begin S:=25; If s mod 2 <> 0 then Begin S:=s-1; K:=s/2 End Else k:=s; Writeln (k) End

Answer 1

Var s:integer; k:real;
Begin
S:=25;
If s mod 2 <> 0 then
Begin
S:=s-1;
K:=s/2
End
Else k:=s;
Writeln (k)
End.
результат: 12

Answer 2

Алгоритм, указанный в вопросе, можно переписать на понятном языке следующим образом:

1. Объявляем две переменные: `s` типа `integer` и `k` типа `real`. 2. Присваиваем переменной `s` значение 25. 3. Проверяем, является ли значение переменной `s` нечётным (то есть, остаток от деления на 2 не равен 0). - Если значение `s` нечётное, то выполняем следующие действия: - Уменьшаем значение `s` на 1. - Делим значение `s` на 2 и присваиваем результат переменной `k`. - Если значение `s` чётное, то присваиваем значение `s` переменной `k` без изменений. 4. Выводим значение переменной `k` на экран.

Теперь рассмотрим, что произойдёт при выполнении данного алгоритма.

1. Задаём значение переменной `s` равным 25. 2. Проверяем, является ли значение переменной `s` нечётным. В данном случае, 25 нечётное число. - Уменьшаем значение переменной `s` на 1, получаем 24. - Делим значение переменной `s` (24) на 2 и присваиваем результат переменной `k`. Получаем `k = 12.0`. 3. Выводим значение переменной `k` (12.0) на экран.

Таким образом, на экран будет выведено число 12.0.