Задача: Опишите:
тип массив TStroka как массив целых чисел из MAX_NUM элементов (задано константой,описывать не надо) элементов с индексами от 1 до MAX_NUM;
тип массив TTablica как массив из строк целых чисел (TStroka) из MAX_NUM элементов (задано константой,описывать не надо) элементов с индексами от 1 до MAX_NUM;
процедуру procedure Zap(var m: TTablica), которая заполняет массив, заданным образом;
процедуру procedure Vivod(m: TTablica), которая выведет элементы массива в виде таблицы через один пробел.
Формат ввода:
Описан в задаче.
Формат вывода:
Описан в задаче.
Пример входных данных
Описан в задаче.
Пример выходных данных
0 0 0 1
0 0 1 1
0 1 1 1
1 1 1 1
Пояснение:
Отсутствует.
var
s:string;
c:char;
begin
Write('Введите натуральное число: ');
Readln(s);
Write('введите искомую цифру: ');
Readln(c);
if Pos(c,s)>0 then
Writeln('Такая цифра в числе есть')
else
Writeln('Такой цифры в числе нет')
end.
Тестовое решение
Введите натуральное число: 43543232
введите искомую цифру: 4
Такая цифра в числе есть
2. Более традиционное решение с целочисленными переменными
var
s,c:integer;
brk:boolean;
begin
Write('Введите натуральное число: ');
Read(s);
Write('введите искомую цифру: ');
Read(c);
brk:=false;
repeat
if s mod 10=c then brk:=True;
s:=s div 10
until brk or (s=0);
if brk then
Writeln('Такая цифра в числе есть')
else
Writeln('Такой цифры в числе нет')
end.
Тестовое решение
Введите натуральное число: 43543232
введите искомую цифру: 6
Такой цифры в числе нет