Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Наиса
25.11.2021, 03:21
Информатика

Дано целое двухзначное число. Используя операции 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.