4) а < 0
судя по этому должна быть ошибка в паскале...
Var N, S: integer
BEGIN
write ('Vvedite N'); readln (N);
S := 0;
while N > 0 do
begin
N := N mod 10;
S := S + 1;
end
writeln (S);
if S mod 9 = 0 then writeln (N, 'kratno 9') else writeln (N, 'ne kratno 9');
END.
124(x) = 84(10)
x^2+2*x+4 = 84
x = 8
124(8) = 8^2+2*8+4 = 64+16+4 = 84(10)
Ответ: 8
Const n=10;
Var b,c;
a:array [1..n] of integer;
Begin
b:=0; c:=0;
For i:= 1 to n do
If a[i]>0 then b:=a[i]+b
else
inc(c);
Writeln(b,' ', c);
end.