Var n,k,s:integer;
begin
write('n='); readln(n);
s:=0;
while n>0 do
begin
k:=n mod 10;
if k mod 2 <> 0 then s:=s+k;
n:=n div 10;
end;
writeln('s=',s);
end.
Пример:
n=123456
s=9
Универсальное решение
var
a, d, s: real;
i, n: integer;
begin
writeln('Введите х, разность и n');
readln(a, d, n);
s := a;
for i := 2 to n do
begin
a := a + d;
s := s + a;
end;
writeln(s);
end.
А) a, b, S
б) karts, karkol, tetts, tetkol
Var a,b,c,d:integer;
begin
writeln('Введите 4 числа:');
readln(a,b,c,d);
if b*d mod 2 = 0
then writeln('b = ',b,' d = ',d,' ',b,'*',d,' = ',b*d);
end.
Пример:
<span>Введите 4 числа:
</span><span>51 32 19 73
</span>b = 32 d = 73 32*73 = 2336