Ответы
Ответ дал:
1
function sum (a : integer) : integer;
var
s : integer;
begin
While a > 0 do
begin
s := s + a mod 10;
a := a div 10;
end;
Result := s;
end;
var
a,b : integer;
c,d : integer;
begin
readln (a,b);
c := a div b;
d := a - (b * c);
writeln (sum(d));
end.
function p (a : integer) : integer;
var
p : integer;
begin
p := 1;
While a > 0 do
begin
p := p * a mod 10;
a := a div 10;
end;
Result := p;
end;
var
a : integer;
begin
readln (a);
writeln (p(a));
end.
var
s : integer;
begin
While a > 0 do
begin
s := s + a mod 10;
a := a div 10;
end;
Result := s;
end;
var
a,b : integer;
c,d : integer;
begin
readln (a,b);
c := a div b;
d := a - (b * c);
writeln (sum(d));
end.
function p (a : integer) : integer;
var
p : integer;
begin
p := 1;
While a > 0 do
begin
p := p * a mod 10;
a := a div 10;
end;
Result := p;
end;
var
a : integer;
begin
readln (a);
writeln (p(a));
end.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад