Var sum, a, num:integer begin

sum: = 0; num:=0; readln (a) ;

while ado begin

sum:=sum+a

if (a mod 2=0) and (a mod 5=0)

then num: = num+1

readln (a)

end;

writelh (sum), writelh (num)

end.

Объясните строчку (c:=10*c+a mod 10; a : = a div 10;) program pr36; function qwer (var a, b: integer) : integer; var c: integer; begin c:=0; while a > 0 do begin c:=10*c+a mod 10; a : = a div 10; end; qwer: = c; end; var a, b: integer;

Какое число будет напечатано в результате выполнения программы: 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;

Помогите составить блок схему из алгоритма паскаля? Вот алгоритм var a:array[1 ... 10] of integer; N, K, L, i, Sum:Integer; begin Write ('N: ') ; Readln (N) ; Write ('K: ') ; Readln (K) ; Write ('L: ') ; Readln (L) ;

Укажите области видимости в программе: Program P; Var x: integer; Procedure P1; Var y: integer; Begin P2; End; Procedure P2; Var z: integer; Begin {Тело процедуры} End; Procedure P3; Var m: integer; Begin P1; End; Begin {Тело основной программы}P3;

Uses crt; var n, s, s1, s2, k:integer; begin writeln ('Введите число: ') ; readln (n) ; s:=0; s1:=0; s2:=0; while n>0 do begin inc (k) ; if k mod 2 = 0 then begin s:=s+n mod 10; n:=n div 10; end else begin s1:=s1+n mod 10; n:=n div 10; end;