Помогите пожалуйста решить в паскаль
Приложения:
Ответы на вопрос
Ответил cccc1808
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.
Новые вопросы
Алгебра,
1 год назад
Геометрия,
1 год назад
Математика,
1 год назад
Алгебра,
1 год назад
Математика,
7 лет назад