Определите что будет напечатанно в результате выполнения следущего алгоритма, записанного на Паскале:

Var s:integer; k:real;

Begin

S:=377;

If s mod 10 = 7 then

Begin

S : = s+3;

K : = s/10

End

Else k:=1;

Writeln (k)

End.

Определите, что будет напечатанно в результате выполнения следущего алгоритма, записанного на Паскале: Var s:integer; k:real; Begin S:=377; If s mod 10=7 then Begin S:=s+3; K:=s/10 End Else k:=1; Writeln (k) End

Какое число будет напечатано в результате выполнения программы: var i, k: integer; function f (x: integer) : integer; var m: integer; begin if x < 10 then f : = x else begin m : = f (x div 10) ; if m < x mod 10 then f : = x mod 10 else f : = m; end;

Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;

Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;

1. определить значение переменной А после выполнения оператора X:=5; if X>-3 then A:=X mod 2 else A:=abs (X) ; 2. определить значение переменной А после выполнения оператора X:=-26; Y:=6; if X div Y=4 then A:=X mod Y else A:=X*Y; 3.