Var n,m:integer;
begin
write('Число = '); readln(n);
write('Цифра = '); readln(m);
if (n div 100 = m)or(n div 10 mod 10 = m)or(n mod 10 = m)
then writeln('Цифра есть')
else writeln('Цифры нет');
end.
Пример:
Число = 519
Цифра = 5
Цифра есть
Program zadacha;
var x:integer;
begin
readln(x);
if (x>=0) and (x<=10) then writeln(x*x)
else writeln(sqrt(x));
end.
Объяснение:
1. Норберт Винер - американский ученый, основоположник кибернетики и теории искусственного интеллекта. У него была идея о необходимости создании единой науки, изучающей процессы хранения и переработки информации, управления и контроля.
2.Клод Шеннон - американский инженер, является основателем теории информации, нашедшие применения в современных высокотехнологических системах связи. Предложил использовать слово бит для обозначения информации.
3. В 1962 году, был придуман Тедом Нельсоном, а опубликован в 1965 году
4. Официально годом рождения WWW можно считать 1989 год. Изобретатель Тим Бернс-Ли
5.Эйлер- ученый математик,астроном, родился в 1707 году в семье базельского пастора Пауля Эйлера
1. 2*32 = 62 байт
2. ((1626-1536)*8*1024)/(32*60*24) = 16 бит
3. 5 бит, но если меньше 32, то достаточно и 4 бит
4.
5.
8*168 = 1344 бит = 168 байт
6.
7.
5*6 = 30 = 30/8 = 4 байта
4 * 125 = 500 байт
b<span>:=a</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> 8 <span>do
</span> b<span>:=</span>a<span>+</span><span>(</span>a<span>+</span><span>d</span><span>)</span>;
<span>writeln</span><span>(</span>b<span>)</span>;