Задачи: 1. Определить объём компьютерной книги из 50 страниц, если каждая страница содержит 25 строк по 60 символов в строке. Мощность компьютерного алфавита составляет 256 символов.
2. Сколько информации содержит сообщение о том, что из колоды достали "даму пик", если: в колоде 32 карты, в колоде 36 карт.
Решить с полным решением.
Робототехника (робот пен технологиядан; ағылшын робототехникасы - робототехника [1], робототехника [2]) - бұл автоматтандырылған техникалық жүйелерді жасаумен айналысатын қолданбалы ғылым және өндірісті дамытудың маңызды техникалық негізі болып табылады [3].
Робототехника электроника, механика, кибернетика, телемеханика, мехатроника [4], информатика, сонымен қатар радио және электротехника сияқты пәндерге негізделген. Құрылыс, өндірістік, тұрмыстық, медициналық, авиациялық және экстремалды (әскери, ғарыштық, су асты) робототехника бар.
Терминнің этимологиясы
«Робототехника» сөзін (немесе «робототехника», «робототехника») алғаш рет Исаак Асимов 1941 жылы басылған «Өтірікші» ғылыми-фантастикалық әңгімесінде баспа түрінде қолданған.
«Робототехника» сөзі 1920 жылы чех жазушысы Карел Чапек пен оның інісі Йозеф Карел Чапектің «Р. W. R. « («Rossumskie әмбебап роботтар»), алғаш рет 1921 жылы сахналанып, көрермендермен бірге сәттілікке ие болды. Онда зауыт иесі көптеген андроидтарды шығаруды ұйымдастырады, олар басында демалмай жұмыс істейді, бірақ кейін көтеріліп, олардың жасаушыларын жояды [5].
Объяснение:
Задача 1:
program HW1;
var a,b,c:integer;
begin
write('Ведите три целых числа через пробел: '); readln(a,b,c);
write('Числа, попадающие в отрезок [1,3]: ');
if (a >= 1) and (a <= 3) then write(a, ' ');
if (b >= 1) and (b <= 3) then write(b, ' ');
if (c >= 1) and (c <= 3) then write(c, ' ');
end.
Задача 2:
program HW2;
var a,b:real;
var c:integer;
begin
write('Ведите две стороны прямоугольника через пробел: '); readln(a,b);
writeln('Что трубуется вычислить?');
writeln('1) Площадь прямоугольника');
writeln('2) Периметр прямоугольника');
writeln('3) Диагональ прямоугольника');
readln(c);
if c = 1 then writeln('Площадь прямоугольника равна ', a*b:1:1)
else if c = 2 then writeln('Периметр прямоугольника равна ', 2*(a+b):1:1)
else if c = 3 then writeln('Диагональ прямоугольника равна ', sqrt(sqr(a)+sqr(b)):1:1)
else writeln('Введёно некорректное значение.')
end.
Задача 3:
program HW3;
var a,i:integer;
begin
a := 0;
for i := 1 to 99 do
begin
if (i mod 2 ) <> 0 then a := a + i
end;
writeln('Cуммa ряда 1, 3, 5..99: ', a);
end.