Определите что будет выведено на экран после выполнения следующего алгоритма: 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
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы