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

Как убрать задержки на bluetooth наушниках​

👇
Увидеть ответ
Ответ:
юлька438
юлька438
29.11.2021

купить новые,потому сто никак не убрать

4,5(48 оценок)
Ответ:
ekaterinatrushkova
ekaterinatrushkova
29.11.2021
Увы никак. купите новые
4,5(34 оценок)
Открыть все ответы
Ответ:
timkoa
timkoa
29.11.2021
While:

Program TaskA;
Var i: Integer;
Begini := 1;
While i < 1024 Do
Begin
i := i * 2;
Write(i, ' ');
End;
End.

Program TaskB;
Var i, a: Integer;
Begin
i := 1;
While i < 21 Do
Begin
a := a + i;
i := i + 1;
Write(a, ' ');
End;
End.

Program TaskC;
Var i, sum: Integer;
Begin
While sum < 100 Do
Begini := i + 1;
sum := sum + i;
Write(i, ' ');
End;
End.

Random:

Program TaskA;
Begin
Randomize;
WriteLn(Random);
End.

Program TaskB;
Begin
Randomize;
WriteLn(Random(10) + 1);
End.

Program TaskC;
Begin
Randomize;
WriteLn(Random(20 + 1) - 10);
End.

Program TaskD;
Begin
Randomize;
WriteLn(Random(51) * 2);
End.

Program TaskE;
Begin
Randomize;
WriteLn(Random(50) * 2 + 1);
End.
4,5(31 оценок)
Ответ:
Ulysses228
Ulysses228
29.11.2021
Program TaskC;
Var i, il: Integer;
Begin
For i := 1 To 21 Do
If i Mod 2 = 1 Then
Write(i, ' ');
i := i + 1;
End;
ReadLn;
End.

Program TaskD;
Var i: Integer;
Begin
For i := 1 To 11 Do
Write(i * 2, ' ');
End;
ReadLn;
End.

Program TaskE;
Var i: Integer;
Begin
For i := 10 DownTo 1 Do
Write(i, ' ');
ReadLn;
End.

Program TaskF;
Var i: Integer;
Begin
For i := 10 DownTo 1 Do
Begin
Write(i * 10, ' ');
End;
ReadLn;
End.

Program TaskG;
Var i, sum: Integer;
Begin
For i := 1 To 10 Do
sum := sum + i;
WriteLn(sum);
ReadLn;
End.

Program TaskH;
Var i, product: Integer;
Begin
product := 1;
For i := 1 To 5 Do
product := product * i;
WriteLn(product);
ReadLn;
End.

Program TaskI;
Var i, sum: Integer;
Begin
For i := -5 To 5 Do
sum := sum + Abs(i);
WriteLn(sum);
ReadLn;
End.

Program TaskJ;
Var c: Char;
Begin
For c := 'A' To 'Z' Do
Write(c, ' ');
ReadLn;
End.
4,6(32 оценок)
Это интересно:
К
Как приготовить торт на именины собаки...
М
Мир-работы
01.04.2023
Как стать успешным командным игроком на работе: советы для успеха...
С
Как помочь другу, потерявшему близкого человека: советы и рекомендации...
З
Здоровье
04.01.2023
Контроль гнева: как управлять своими эмоциями...
К
Как сделать красивые и вкусные французские макароны с миндалем...
К
Как заварить Кунг фу чай - лучший способ насладиться вкусом восточного чая...
Д
Дом-и-сад
10.09.2020
Как установить в доме камеры наблюдения для системы безопасности...
З
Здоровье
12.11.2020
Молочница: Причины, проявления и лечение в домашних условиях...
М
Мир-работы
14.09.2021
Как подготовиться к первому дню на новом месте работы...
О
Как узнать, который час по-испански: простые правила для изучения...
Новые ответы от MOGZ: Информатика
89370982401
89370982401
22.11.2022
Составьте кроссворд 1. Презентация 2. Слайд 3. Программа 4. Конструктор 5. Рисование 6. Стандартная 7. Форматирование 8. PowerPoint 9. Структура 10. Свойства​...
7Kamilla
7Kamilla
03.09.2020
Желідегі алаяқтық деген не?​...
nastya19831507
nastya19831507
16.12.2021
Обмен местами в различных программах часто нужно менять значения переменных местами. потренируйся: напиши программу, которая это делает. т.е. в начале у тебя есть...
Мафаняяя
Мафаняяя
04.11.2020
Впятницу фёдор андреевич сказал демиду, что файл с материалами кружка по программированию выложен в интернете по адресу в понедельник в связи с переналадкой школьного...
Marinet1806
Marinet1806
09.11.2022
Города. ввод стандартный ввод или input.txt вывод стандартный вывод или output.txt аня и наташа играют в города. они любят эту игру, знают много городов и к концу...
ASabina1111111
ASabina1111111
14.07.2020
Нарисовать в паскале с цикла for...
Catandgog
Catandgog
11.08.2020
Для установления национального согласия в 1917 г. Временное правительство ​...
alesyshapiro
alesyshapiro
19.09.2022
Тапсырма:Берілген жай сөйлемдерді себеп-салдар салалас құрмалас сөйлемдерге айналдырыңдар. -Наурыз – көктемнің алғашқы айы. Жер үстінде табиғат пен адамның үндестігі...
RainbowRashers
RainbowRashers
04.06.2021
Выберите из предложенного списка утврждения, относящиеся к деятельности А.Байтурсынова, К.Сатпаева...
aminyshaa
aminyshaa
04.06.2021
-5ac+4b-38 вынести минус за скобки​...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ