Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
violettakot01
08.08.2019 23:00 •
Информатика
Вывести на экран числа кратные 6 из интервала 50-100. в паскале авс
Показать ответ
Ответ:
Khan11111
04.10.2020 06:07
Var
i:integer;
begin
i:=54;
repeat
Write(i:3);
i:=i+6
until i>100;
Writeln
end.
Результат
54 60 66 72 78 84 90 96
0,0
(0 оценок)
Популярные вопросы: Информатика
nazirakmtv
07.03.2022 18:05
застрял на середине сделайте в python...
krubtsova79
07.03.2022 18:02
КОД ОШИБКИ [a64F32fa-0х000003OC] wotch dogs 2 как исправить ошибку...
данил20888
07.03.2022 17:46
Напишите код на c++ (полный для компиляции)...
Метеор73
07.03.2022 17:37
На картинке — результат выполнения программы. Какая алгоритмическая структура может быть использована в коде этой программы? Выбери два ответа. 1) Цикл с условием 2) Последовательное...
aleksejgrunin0
07.03.2022 17:34
Задание 1. Реализуйте проверку попадания переменной x в диапaзон (1; 100), то есть условие должно быть истинным, когда х принимает значения в этом диапазоне чисел. Задание...
bryuho20011
07.03.2022 17:26
Питон 10 класс. Почему не идёт программа, объясните . Проблема с else(invalid syntaxis) и переменной с....
azik55
07.03.2022 17:11
исправить ошибки решить эту программу если не сложно напишите полный ответ Pascal ABC Program factoreal;Var F,N,k:Integer;Write:(ведите число);Write (большая буква N);F:=1;k:=1;While...
amir158
07.03.2022 17:01
Почему у меня не работает код? from tkinter import *root = Tk()root.title( Регистор символов клавиатуры )text = Text()text = Text(width=20, height=5, highlightthickness=2)text.pack()def...
Иванчик1111
07.03.2022 16:53
Петя уехал отдыхать в Марокко и решил разыграть между друзьями настоящий берберский ковёр. Приз достанется тому, кто первый угадает число, которое он загадал. Петя оставил...
11264чс
07.03.2022 16:51
Напишите программу которая в последовательности натуральных чисел от 1 до 10000 находит сумму нечетных чисел кратных 13. В ответ запишите результат суммы....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
i:integer;
begin
i:=54;
repeat
Write(i:3);
i:=i+6
until i>100;
Writeln
end.
Результат
54 60 66 72 78 84 90 96