Дата публикации:
Pascal. Решите пожалуйста задачу!. Даны натуральные числа n и k.
Pascal. Решите пожалуйста задачу!. Даны натуральные числа n и k. Проверить, есть ли в записи числа n*k цифра m.
Для решения этой задачи можно преобразовать число n*k в строку и проверить, содержит ли эта строка символ m.
Вот пример решения на языке Pascal:
program CheckDigit;
var
n, k, m: Integer;
number: String;
i: Integer;
digitFound: Boolean;
begin
// Вводим значения n, k и m
Write('Введите число n: ');
ReadLn(n);
Write('Введите число k: ');
ReadLn(k);
Write('Введите цифру m: ');
ReadLn(m);
// Вычисляем произведение n и k
number := IntToStr(n * k);
// Проверяем, содержит ли строка number символ m
digitFound := False;
for i := 1 to Length(number) do
begin
if StrToInt(number[i]) = m then
begin
digitFound := True;
Break;
end;
end;
// Выводим результат
if digitFound then
WriteLn('Цифра ', m, ' найдена в числе ', n * k)
else
WriteLn('Цифра ', m, ' не найдена в числе ', n * k);
end.
Программа сначала запрашивает у пользователя значения n, k и m. Затем она вычисляет произведение n и k и преобразует его в строку. Далее она проверяет каждый символ строки на равенство с m. Если символ m найден, программа выводит сообщение о том, что цифра m найдена в числе nk. В противном случае программа выводит сообщение о том, что цифра m не найдена в числе nk.