ВОПРОСЫ И ЗАДАНИЯ: 1) Дополните таблицу положительного и отрицательного воз- действия на жизнь человека: ПОЛОЖИТЕЛЬНОЕ ВОЗДЕЙСТВИЕ ОТРИЦАТЕЛЬНОЕ ВОЗДЕЙСТВИЕ 1 Доступность общения Компьютерная зависимость 2 Доступность любой «Перегруз» ненужной информации информацией 3 Автоматизация работы Сложность чтения с экрана 4 Возможность индивидуального Спам, фрагментарное чтение обучения 5 Наглядность, возможность Подмена реальности создавать презентации виртуальным миром
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
Такой цифры в числе нет