Що таке комп’ютери?Комп’ютери - це електронно-обчислювальні машини, які виконують завдання або обчислення відповідно до набору інструкцій, або програм. Перші повністю електронні комп’ютери, створені у 1940-х роках, були величезні, їх обслуговували багато людей. Порівняно з тими ранніми машинами, сьогоднішні комп’ютери - це просто диво. Вони не лише в тисячі разів швидші, а й незрівнянно компактніші: можуть поміститися на вашому столі, на колінах чи навіть у кишені.Комп’ютери працюють у поєднанні устаткування та програмного забезпечення. Устаткуванням називають видимі та матеріальні складові комп’ютера, які включають корпус і весь його вміст. Найважливішій пристрій в устаткуванні - це маленька прямокутна мікросхема всередині комп’ютера, яка називається центральний процесор (ЦП) абомікропроцесор. Це «мозок» комп’ютера - частина, яка інтерпретує команди та виконує обчислення. Компонентиустаткування, такі як монітор, клавіатура, миша, принтер та інші, часто називають пристроями.Програмним забезпеченням називаються команди, або програми, які вказують устаткуванню, що робити. Наприклад, один із типів програмного забезпечення - текстовий редактор, за до якого на комп’ютері можна писати листи. Операційна система (ОС) - це програмне забезпечення, яке керує комп’ютером і підключеними до нього пристроями. Windows - широковідома операційна система.
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 Такой цифры в числе нет
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
Такой цифры в числе нет