Var n,sum,d,ind,first: integer; begin write('n'); readln(n); d: =1; ind: =0; sum: =0; if n div d=0 then begin ind: =1; sum: =n; end else begin while n div d< > 0 do begin inc(ind); sum: =sum+(n div d) mod 10; d: =d*10; end; end; writeln('suma',sum); writeln('kolvo',ind); first: =(n div round(d/10)) mod 10; writeln('first',first); readln; end.
Konstantin_Vadimirovich
01.12.2021
1) var a : byte; begin writeln('сколько вам лет? '); readln(a); if a > 17 writeln('вы совершеннолетний'); end. 2) var a : integer; begin readln(a); if a mod 2 = 0 then writeln(число четное) else writeln(число нечетное); end.
var
a: array[1..50]of real;