Задача1

Дано двузначное число. Найти сумму и произведение его цифр

Question

Информатика

Жанна

23 июля, 01:34

Задача1

Дано двузначное число. Найти сумму и произведение его цифр

+3

Ответы (2)

Знаете ответ на вопрос?

Фросюшка · Answer 1

uses crt;

var a, a1, a2:integer;

begin

write ('Введите двузначное число: ') ;

readln (a) ;

a1:=a div 10;

a2:=a mod 10;

writeln ('Сумма цифр числа ', a,' равна ', a1+a2,', произведение равно ', a1*a2) ;

end.

Аврея · Answer 2

program kugjmgv;

uses crt;

var a, a1, a2:integer;

begin

ClrScr;

write ('Введите двузначное число: ') ;

readln (a) ;

a1:=a div 10;

a2:=a mod 10;

writeln ('Сумма цифр числа ', a,' равна ', a1+a2,', произведение равно ', a1*a2) ;

end.

Задача1Дано двузначное число. Найти сумму и произведение его цифр

Задача1

Дано двузначное число. Найти сумму и произведение его цифр