Укажите значение, которое будет выведено на экран в результате работы программы при введённых с клавиатуры значениях 1, 2, 3, соответственно. Program N; var A, B, C, D: real; begin readln(A, B, C); D := 14; if A > B then if A > C then D := D + A else D := B else if B > C then D := D + B ; writeln(D) end.
ПОЛУЧИТЬ ОТВЕТ Укажите формулировку задачи, которую решает данная программа. Program N; var x, k, S: integer; Begin Readln(x); k := 0; S := 0; while x<>0 do begin if x mod 10 mod 2 <> 0 then S := S + x mod 10; x:=x div 10; k:=k+1; end; Writeln(k); Writeln(S); end.
Укажите наименьшее число N, при вводе которого в результате работы алгоритма выводится на экран сначала 3, а потом 7. var N, a, b : integer; begin readln(N); a := 0; b := 1; while N > 0 do begin a := a + 1; b := b * (N mod 10); N := N div 10; end; writeln(a); write(b); end.
Укажите число, которое будет выведено на экран при вводе х = 16 в результате работы следующей программы: var x, L, M: longint; begin readln(x); L := 0; M := 0; while x > 0 do begin L:= L + 1; if x mod 2 = 0 then M:= M + x mod 10; x:= x div 10; end; writeln(L+M); end.
