В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Doalipa
Doalipa
14.10.2020 10:53 •  Информатика

Представьте число 25 в двоичном виде в восьмибитовом представлении в формате целого без знака. 11001
11001000
00011001​

Показать ответ
Ответ:
Uses Drawman;
Begin 
Field(26,10); 
ToPoint(1,2); 
PenDown; 
ToPoint(1,8); 
ToPoint(4,8); 
PenUp; 
ToPoint(1,2); 
PenDown; 
ToPoint(4,2); 
PenUp; 
ToPoint(6,2); 
PenDown; 
ToPoint(6,8); 
ToPoint(9,8); 
ToPoint(9,2); 
ToPoint(6,2); 
PenUp; 
ToPoint(13,2); 
PenDown; 
ToPoint(13,8); 
ToPoint(11,8); 
ToPoint(11,5); 
ToPoint(15,5); 
ToPoint(15,8); 
ToPoint(13,8); 
PenUp; 
ToPoint(17,8); 
PenDown; 
ToPoint(17,2);
ToPoint(20,8); 
ToPoint(20,2);
PenUp; 
ToPoint(22,2); 
PenDown; 
ToPoint(25,5); 
ToPoint(22,5); 
ToPoint(22,8); 
ToPoint(25,8); 
ToPoint(25,2); 
PenUp;
End.
0,0(0 оценок)
Ответ:
Qwer3313qw
Qwer3313qw
04.11.2021 20:23

var

a, b, x, s, c, t:real;


begin


writeln('Введите a');

readln(a);

writeln('Введите b');

readln(b);

writeln('Введите x');

readln(x);


if x<=a then

begin

s:=sin(x);

writeln ('Синус равен ', s);

end

else

writeln ('Синус вычислить нельзя, так как равенство не равно ', x, '<=', a);


if (a<x) and (x<b) then

begin

c:=cos(x);

writeln ('Косинус равен ', c);

end

else

writeln ('Косинус вычислить нельзя, так как равенство не равно ', a, '<', x, '<', b);


if x>=b then

begin

t:=tan(x);

writeln ('Косинус равен ', t);

end

else

writeln ('Косинус вычислить нельзя, так как равенство не равно ', x, '>=', b);


end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота