Дано:четырёхзначное число.Найти:сумму его цифр,творенье

Дано:четырёхзначное число.
Отыскать:сумму его цифр,произведение

Задать свой вопрос
1 ответ
Program tz;
var
a,b,c:integer;
i:byte;
begin
writeln('vvedite 4x znachnoe chislo');
readln(a);
b:=1;
c:=0;
for i:=1 to 4 do begin
    b:=b*(a mod 10);
    a:=a div 10;
    c:=c+(a mod 10);
end;
writeln('proizvedenie = ',b);
writeln('summa = ',c);
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт