Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Определите что будет выведено на экран после выполнения следующего алгоритма:
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

Ответ оставил Гость

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