Задача1Дано двузначное число. Найти сумму и произведение его цифр
Задача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.
Гость 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.
Не нашли ответ?
Похожие вопросы