Определите что будет выведено на экран после выполнения следующего алгоритма:

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

Question

Феонилла

16 мая, 16:21

+3

Ответы (1)

Знаете ответ на вопрос?

Валерия · 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

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