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

Y=1/1-2/2-3/3-4//n составить блок-схему и программу на паскале. заранее

👇
Ответ:
oleg2777
oleg2777
16.07.2021
//Pascal ABC.NET v3.1 сборка 1172

Var
 y:real;
 i,n:integer;
begin 
readln(n);
 y:=1;
 for i:=2 to n do
 y:=y-i/i;
 writeln(y);
end.

Пример ввода:
3
Пример вывода:
-1
Y=1/1-2/2-3/3-4//n составить блок-схему и программу на паскале. заранее
4,8(1 оценок)
Открыть все ответы
Ответ:
RomqaShut
RomqaShut
16.07.2021

1. Пропускная некоторого канала связи равна 128000 бит/с. Сколько времени займет передача по этому каналу

файла объемом 1,5 Мбайт? 2. Скорость передачи данных по некоторому каналу связи равна 524288 бит/с. Передача файла по этому каналу связи заняла 4 мин. Определите размер файла в мегабайтах. 3. Средняя скорость передачи данных по некоторому каналу связи равна 30720 бит/с. Определите, сколько понадобиться секунд, чтобы передать по этому каналу 80 страниц текста, каждая страница которого содержит в среднем 128 символов, а информационный вес одного символа равен 8 битам

4,6(3 оценок)
Ответ:
nazipovadk
nazipovadk
16.07.2021

ответ:Вариант №1 (не совсем удачный, как было отмечено в комментариях).

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)

var n,i,m:integer;

flag:boolean;

begin

 readln(n);

 flag:=false;

 if (n mod 2<>0)then i:=n-1 else i:=n;

 while i>0 do begin  

   if power(2,i)<=n then begin

     write(power(2,i),' '); flag:=true;

   end;

   i:=i-2;

end;

if not flag then writeln(0);

end.

Тест №1

1025

1024 256 64 16 4

Тест №2

1

0

Вариант №2

var a,i,n: integer;

begin

 a:=1;readln(n);

 i:=trunc(log2(n)); //получим степень двойки для n

 //если i нечетное,

 //то первое искомое число получаем путем сдвига влево на i-1 в

 //двоичном представлении числа иначе сдвиг на i

 if (i mod 2)=1 then a:=a shl(i-1) else a:=a shl i;

 //далее получаем числа сдвигая вправо на 2 разряда

 //в двоичном представлении числа

 while a>=2 do begin

   write(a,' ');

   a:=a shr 2;

 end;

end.

Тестовое решение:

2147483647

1073741824 268435456 67108864 16777216 4194304 1048576 262144 65536 16384 4096 1024 256 64 16 4

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