Запишите на языке ПаскальЗапишите на языке Паскаль программу,которая для произвольного двузначного числа определяет:а) сумму и произведение его цифр;б) число,образованное перестановкой цифр исходного числа. Срочно надо
Ответы
Ответ дал:
0
Var
a:integer;
Begin
read(a);
write('Сумма цифр: ',(a mod 10) + (a div 10));
writeln(', произведение цифр: ',(a mod 10) * (a div 10));
write(a mod 10, a div 10);
End.
a:integer;
Begin
read(a);
write('Сумма цифр: ',(a mod 10) + (a div 10));
writeln(', произведение цифр: ',(a mod 10) * (a div 10));
write(a mod 10, a div 10);
End.
Ответ дал:
0
тут и под буквой а и б вместе. write(a mod 10, a div 10); это под буквой Б, остальной код это для буквы а
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад