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

Переведи число 117 из десятичной системы счисления в двоичную

👇
Ответ:
katpetrompet4345
katpetrompet4345
22.02.2023
1110101 чисто 117 в двоичной
4,6(43 оценок)
Открыть все ответы
Ответ:
fghjik
fghjik
22.02.2023

var

 a: array of real;

 size, i: integer;

 average: real;

begin

 randomize;

 write('Размер массива: ');

 readln(size);

 SetLength(a, size);

 average := 0;

 writeln(' *** Сгенерированный массив *** ');

 for i := 0 to size - 1 do

 begin

   a[i] := random(20);

   write('  ', a[i]);

   if Odd(i) = false then average := average + a[i];

 end;

 average := average / trunc((size + 1) / 2);

 writeln(#13 + 'Среднее арифметическое = ', average);

 writeln(' *** Новый массив ***');

 for i := 0 to size - 1 do

 begin

   if Odd(i) = true then a[i] := average;

   if Frac(a[i]) = 0 then write('  ', a[i])

   else write('  ', a[i]:0:1);  

 end;

end.

4,6(58 оценок)
Ответ:
stolyarovsemen
stolyarovsemen
22.02.2023

program Fizika;

uses crt;

var NUM,a,b,c,d,e,i,f,g,h,j,k,r,t:integer;

begin

clrscr;

writeln('Введите число №1:');

readln (a);

writeln('Введите число №2:');

readln (b);

writeln ('1) Швидкість');

writeln ('2) Шлях');

writeln ('3) Час ');

writeln ('4) Густина ');

writeln ('5) Маса ');

writeln ('6) Обєм ');

writeln ('7) Висота ');

writeln ('8) Площа ');

writeln ('9) Сила тяжіння');

writeln ('10) Маса ');

writeln ('11) Прискорення вільного падіння ');

writeln('Введите число от 1 до 11:');

readln (NUM);

c:=a div b;

d:=c*b;

e:=d div c;

i:=a div b;

f:=i*b;

g:=f div i;

h:=a div b;

j:=a div h;

k:=a*b;

r:=k div b;

t:=k div r;

case NUM of

1:writeln ('Швидкість дорівнює:', c, ' м/с');

2:writeln ('Шлях дорівнює:', d, 'м');

3:writeln ('Час дорівнює:', e, 'c');

4:writeln ('Густина дорівнює:', i, 'кг/м3');

5:writeln ('Маса дорівнює:', f, 'кг');

6:writeln ('Обєм дорівнює:', g,'м3');

7:writeln ('Висота дорівнює:', h,'м');

8:writeln ('Площа дорівнює:', j, 'м2');

9:writeln ('Сила тяжіння дорівнює:', k ,'Н');

10:writeln ('Маса дорівнює:', r, 'кг');

11:writeln ('Прискорення вільного падіння дорівнює:', t,'Н/кг');

end;

end.

4,8(17 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ