Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
cehrjdfyflz1603
30.01.2022 16:54 •
Информатика
Написать программу, которая из последовательности чисел от -40 до 30 выбирает те, которые отрицательные, меняет их знак и делит на 7. построить блок-схему и написать программу, .
Показать ответ
Ответ:
Чика1без2ника
06.10.2020 06:42
Begin
var a := Range(-40, 30);
a.Println();
writeln('');
a.Where(x -> x < 0).Select(x -> (- x) / 7).Print();
end.
0,0
(0 оценок)
Ответ:
dovletbegendzh
06.10.2020 06:42
Program;
var a,i:integer;
Begin
for i:=-40 to 30 do
read(a);
begin
if (a<0) then
a:=a*(-1);
a:=a/7;
end;
write(a);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
лсагамлснс
11.04.2022 12:17
Как называетсся тбъект в среде програмирования...
redle01
30.01.2022 11:33
Клетки грибов делиться на четыре части каждые пять минут.Определите какое количество клеток будет через N минут (N- целое число вводимое с клавиатуры) на языке Python...
kaanekiken
21.02.2022 06:13
Напишите программу, которая запрашивает у пользователя координаты точки и затем рисует треугольник. В PascalABC...
лоххз
25.09.2020 04:37
Составте блок схему по заданному алгоритму Словесный алгоритм: Если супер герой победит своего соперника, то он перейдет в следующий уровень. А если нет, то игра закончиться...
fgydsgfgysa
21.02.2023 19:09
найти правильное решение...
одногоВоло
24.11.2020 08:22
Составить схему алгоритма и написать программу вычисления суммы (произведения) конечного ряда. При разработке программы предусмотреть пропуск слагаемых (множителей),...
дитанатор
18.11.2020 11:06
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 7 и оканчивающихся на 3. Программа получает на вход натуральные...
alexstew1
07.04.2021 10:35
Андрей составляет 4-буквенные коды из букв А, Н, Д, Р, Е, Й. Каждую буквуможно использовать любое количество раз, при этом код не можетначинаться с буквы Ии должен содержать...
Medvedi47
17.01.2020 17:45
Решите оба варика кроме 9 задания, заранее спс! Про нумеруйте ответы...
Reaper655
14.02.2021 01:01
Visual C++ Для заданного целого десятичного числа N получить его представление в p-ичной системе счисления (p 10). используя рекурсивную функцию...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a := Range(-40, 30);
a.Println();
writeln('');
a.Where(x -> x < 0).Select(x -> (- x) / 7).Print();
end.
var a,i:integer;
Begin
for i:=-40 to 30 do
read(a);
begin
if (a<0) then
a:=a*(-1);
a:=a/7;
end;
write(a);
End.