Задача1

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

Question

Информатика

Офелия

29 сентября, 21:38

Задача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

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