М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
daliiss
daliiss
07.07.2020 16:03 •  Информатика

Дано число его удвоить и утроить составить программу в паскаль

👇
Ответ:
Жекон124
Жекон124
07.07.2020
Program удвоение;
var a:real;
Begin
read(a);
a:=a*2;
writeln(a);
End.

Program утроение;
var a:integer;
Begin
read(a)
a:=a*3;
writeln(a);
End.
4,5(80 оценок)
Открыть все ответы
Ответ:
fgioryughorhghu
fgioryughorhghu
07.07.2020

Задание 5:

ответ:64=2^6 ---> 6 битов для кодировки одного ученика 72:6 = 12 учеников отобрано

Задание 6:

91 : 13 = 7 бит- на один файл

2^7 = 128 файлов- было

128 – 13 = 115 файлов- осталось

ответ: 115

Задание 7:По формуле Хартли N= 2^{i} вспоминаем степени двойки.

2⁵ = 32 => 1 буква несет 5 бит информации, ибо i = 5. Т.к в слове муравей 7 букв, то сообщение содержит 7 * 5 = 35 бит.

Задание 8:Решение:

i-?,

Число возможных информационных сообщений о положении крестика равно количеству клеток, т.е. 8*8=64, поэтому

N=2i , 64=2i, 2^6=2i, i=6.

ответ: 6 бит.

Задание 9:1) 2^5 = 32, поэтому на 1 букву 5 бит

2) 5 бит ∙ 5 букв = 25 бит, значит 25 вопросов

ответ: 25 вопросов

4,4(3 оценок)
Ответ:
Loader
Loader
07.07.2020
с функцией)}
Program n1;
function Dlina(x1,y1,x2,y2: integer):real;
var d: real;
begin
d:= sqrt(sqr(y1-y2)+sqr(x1-x2));
Dlina:=d;
end;
var xa,ya,xb,yb,xc,yc: integer;
ab,bc,ca,S,p: real;
begin
writeln ('введите коорд. вершины A ');
readln (xa,ya);
writeln ('введите коорд. вершины B ');
readln (xb,yb);
writeln ('введите коорд. вершины C ');
readln (xc,yc);
ab:=Dlina(xa,ya,xb,yb);
bc:=Dlina(xb,yb,xc,yc);
ca:=Dlina(xc,yc,xa,ya);
p:=(ab+bc+ca)/2;
S:=sqrt(p*(p-ab)*(p-bc)*(p-ca));
writeln('площадь : ',S);
end.

с процедурой)}
program n2;
var x1,x2,x3,y1,y2,y3,s,a,b,c,p:real;
procedure dlina(q,w,e,r:real; var d:real);
begin
d:=sqrt(sqr(q-w)+sqr(e-r));
end;
begin
writeln ('введите коорд. вершины A ');
readln (x1,y1);
writeln ('введите коорд. вершины B ');
readln (x2,y2);
writeln ('введите коорд. вершины C ');
readln (x3,y3);
dlina(x1,x2,y1,y2,a);
dlina(x2,x3,y2,y3,b);
dlina(x3,x1,y3,y1,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('площадь: ',s);
end.
4,5(60 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ