Дано целое двухзначное число. Используя операции div и mod, найти произведение его цифр. Для облегчения
поиска решения имейте в виду, что для двузначного числа первая цифра дается выражением d1:=x div 10; а вторая выражением d2:=x mod 10;
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Пуд
Вариант с проверкой вводимого числа:
program product;
var n: integer;
begin
n:=100;
writeln('Bведите двузначное целое число');
while (n>99) or (n<10) do
begin
Readln(n);
if (n<10) or (n>99) then writeln('Это не двузначное число. Введите двузначное')
end;
Writeln('Произведене цифр введенного числа: ', (n mod 10) * (n div 10))
end.
Программа без проверки вводимого числа:
program product;
var n: integer;
begin
writeln('Bведите двузначное целое число');
Readln(n);
Writeln('Произведене цифр введенного числа: ', (n mod 10) * (n div 10))
end.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
