Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
bititi2
02.06.2021 11:22 •
Информатика
Распечатать произведения чисел а и в изменяющихся от 17 и -25 с шагом -3 и 5 до тех пор, пока это произведение - отрицательно число
Показать ответ
Ответ:
ВвОзДуХе
05.07.2020 14:20
Var A,B :integer;
begin
A:=17;
B:=-25;
while (a*B)<0 do begin
writeln (A*B);
A:=A-3;
B:=B+5;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
svetasvetlana7
04.02.2023 01:35
Информационной моделью, которая имеет сетевую структуру является а) файловая система компьютера; б) таблица менделеева; в) генеалогическое дерево семьи; г) модель компьютерной...
Mrt2004
25.07.2021 02:36
MS Excel. Пусть А1=-8, В1=9, В2=3. При каком значении А2 значение выражения =ЕСЛИ(И(А1+В2 А2*В1; А1*А2 0);A1*B2-B1-A2;A1*B1-B2+A2) будет равно -78?...
ДашаЛис56
24.01.2020 00:44
Записать логическое высказывание, обратное данному Вася моет раму или Петя поливает цветы ...
герман136
20.02.2021 16:51
Комектесиндерши отиниш...
Nikto58
22.08.2020 06:45
Диаграмма түрін қалай өзгертуге болады...
ahmet2007
11.05.2022 23:45
Вычислите количество всех натуральных чисел в интервале от А до В, которые делятся на C без остатка. Input.txt: А, В, С (1 =A, B, C =10^{5} Uotput.txt: в выходном файле...
alinkachehovska
06.05.2022 17:04
Дан двумерный массив 5 × 6. Определить среднее арифметическое каждого столбца, определить максимум и минимум каждой строки. На языке Python...
Fgrtpo
16.07.2021 04:59
Как установить плагин на сервер майнкрафт версией 1.16.40?...
alyonavasnecova34
23.11.2022 08:01
Уровень Анализ 1. Установите дробный формат для данных, представленныхниже, по образцу (табл. 3.7).Таблица 3.7Обычный форматФормат дробный5,653/530,3303/1025,5251/2...
stendec
21.03.2023 23:18
Как включить ноутбук...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
A:=17;
B:=-25;
while (a*B)<0 do begin
writeln (A*B);
A:=A-3;
B:=B+5;
end;
end.