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

Напишите программу в паскале. в последовательности натуральных чисел вывести среднее арифметическое чисел, не оканчивающихся на 3 и на 5 , знаков после запятой 3 . на вход подается кол-во чисел, сами числа . значение числа не должно превышать 30000 , количество чисел не больше 1000

👇
Ответ:
ответ в текстовом файле
4,4(73 оценок)
Открыть все ответы
Ответ:
Program Loto;
Uses Crt;
Const lt = 49; (* количество шаров в лототроне *)
shar = 6; (* количество выигрышных шаров*)
Var lott,vyb : array [1..shar] of integer;
i, j, nom, k : integer;
m:set of byte;
Begin
randomize;
m:=[];
for i:=1 to shar do
begin
repeat
nom:=1+random(lt);
until not(nom in m);
lott[i]:=nom;
m:=m+[nom];
end;
writeln('Выберите шаров от 1 до 6 ',lt);
m:=[];
begin
repeat
write('nom',i,'=');
readln(nom);
until (nom in [1..lt])and not(nom in m);
vyb[i]:=nom;
m:=m+[nom];
end;
clrscr;
writeln('Номера шаров в лототроне');
for i:=1 to shar do write(lott[i]:3);
writeln;
writeln('Выбранные шары');
for i:=1 to shar do
write(vyb[i]:3);
writeln;
write('Совпавшие шары: ');
k:=0;
for i:=1 to shar do
for j:=1 to shar do
if lott[i]=vyb[j] then
begin
k:=k+1;
write(lott[i]:3);
end;
if k=0 then write('- нет')
else write('  Их количество=',k)
end.
4,8(4 оценок)
Ответ:
maksimwwe00718
maksimwwe00718
04.08.2020

1) 20₁₀ = 10100₂

2) 68₁₀ = 1000100₂

3) 400₁₀ = 110010000₂

4) 257₁₀ = 100000001₂

5) 2010₁₀ = 11111011010₂

Объяснение:

1) 20₁₀ = n₂

20 mod 2 = 0

10 mod 2 = 0

5 mod 2 = 1

2 mod 2 = 0

1 mod 2 = 1

Остаток от деления записываем в обратном порядке и получаем число: 10100₂

2) 68₁₀ = n₂

68 mod 2 = 0

34 mod 2 = 0

17 mod 2 = 1

8 mod 2 = 0

4 mod 2 = 0

2 mod 2 = 0

1 mod 2 = 1

Остаток от деления записываем в обратном порядке и получаем число: 1000100₂

3) 400₁₀ = n₂

400 mod 2 = 0

200 mod 2 = 0

100 mod 2 = 0

50 mod 2 = 0

25 mod 2 = 1

12 mod 2 = 0

6 mod 2 = 0

3 mod 2 = 1

1 mod 2 = 1

Остаток от деления записываем в обратном порядке и получаем число: 110010000₂

4) 257₁₀ = n₂

257 mod 2 = 1

128 mod 2 = 0

64 mod 2 = 0

32 mod 2 = 0

16 mod 2 = 0

8 mpod 2 = 0

4 mod 2 = 0

2 mod 2 = 0

1 mod 2 = 1

Остаток от деления записываем в обратном порядке и получаем число: 100000001₂

5) 2010₁₀ = n₂

2010 mod 2 = 0

1005 mod 2 = 1

502 mod 2 = 0

251 mod 2 = 1

125 mod 2 = 1

62 mod 2 = 0

31 mod 2 = 1

15 mod 2 = 1

7 mod 2 = 1

3 mod 2 = 1

1 mod 2 = 1

Остаток от деления записываем в обратном порядке и получаем число: 11111011010₂

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