Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
murahkina2006
08.04.2023 00:23 •
Информатика
Впаскаль сделать цикл типа пока: напечатать минимальное число большее 200 которое нацело делится на 17.!
Ответ:
vika20022003
25.06.2020 17:53
Var i:integer;
Begin
i:=200;
while (i mod 17 <> 0) do i:=i+1;
writeln(i);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
aleksBRO
05.06.2021 16:45
Оптимизируйте программы ниже, так что бы они выполнялись за меньшее количество операций. 1)var n , m :integer;k : real;beginreadln(n);m:=1;while n 0 do beginm:=m+n*n*n;n:=n-1;end;k:=trunc(sqrt(m));writeln(k);end.2)...
LEHA6712
22.08.2021 22:42
по братски Даны три числа. Определите, является ли сумма двух из них положительной...
VLaDiSLaVVoRoNKoV
10.11.2022 19:59
Яким кольором обведена піктограма котра використовується для підкреслення тексту? Виберіть одну відповідь: a. Червоним b. Жовтим c. Зеленим d. Рожевим...
Vihenka7
17.04.2022 04:23
Определите, что будет выведено в результате работы следующего модуля программы var k, s: integer; begin s:=0; k:=1; while s 66 do begin k:=k+3; s:=s+k; end;write(k);...
Вероника13411
23.04.2023 14:17
Расположите три числа в порядке возрастания.pascal программа., мне...
bkonok832
23.04.2023 14:17
Паскаль программы.расположите числа a,b,c integer в порядке возрастания. мне, !...
серый386
02.12.2022 16:10
Соператоров цикла вывести на экран 55555 4444 333 22 1...
jdhhdd
02.12.2022 16:10
Соператоров цикла вывести на экран 54321 4321 321 21 1...
angelikamaxowoz4v
02.12.2022 16:10
Имеется видео с размерами изображения 1024 х 1024, с глубиной цвета 7 бит. скорость воспроизведения составляет 24 кадров в секунду. определите объем данных....
evgenyzuzev
02.12.2022 16:10
Последовательность семнадцатеричных чисел, разделённых пробелом, в конце - точка. перевести в десятичную и определить максимум...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Begin
i:=200;
while (i mod 17 <> 0) do i:=i+1;
writeln(i);
end.