Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Hikary134
27.08.2020 03:36 •
Информатика
Написать программу в паскале, которая прибавляет к 1 число 7 до тех пор, пока полученная сумма не превысит max число, введенное с клавиатуры. после каждого действия вывести полученную сумму, если она меньше max числа
Показать ответ
Ответ:
ayaermek
05.10.2020 08:22
Var max,s:integer;
begin
write('max = ');
readln(max);
s:=1;
while s<=max do
begin
write(s,' ');
s:=s+7;
end;
writeln;
end.
Пример:
max = 40
1 8 15 22 29 36
0,0
(0 оценок)
Популярные вопросы: Информатика
shoistakarimova
23.02.2021 10:48
На с++ . в массиве из 10 целых чисел подсчитать сумму элементов, стоящих правее минимального....
danilp18
23.10.2020 21:38
Определите, кто играет роль и кто (или что) играет роль объекта в следующих системах: школа, класс, самолет, стая волков, стадо коров....
stikmanov
04.11.2021 14:03
Вы посетили магазин и купили 10 видов товара.в таблицу t[1: 10] вы записали количество купленного товара каждого вида.в таблицу c[1: 10] записали цены единиц каждого вида...
rdemchenko
04.11.2021 14:03
1.на светофоре для автомобилей зеленый свет горит 3 минуты, красный свет – 2 минуты, а желтый свет – 1 минуту. сколько информации несет сообщение о том, что загорится зеленый...
satursacha
01.04.2020 23:42
Чему будет равна переменная е:=? ...
SadEngineer
03.10.2022 23:06
Представьте число 6710 в беззнаковом 8-разрядном формате.2.Найдите десятичные эквиваленты чисел по их прямым кодам, записанным в 8-разрядном формате со знаком:а) 01000100;б)...
09kok90
16.07.2020 05:05
Почему фразу книга - источник знаний нельзя считать определением понятия книга? как можно определить данное понятие? решите )...
Seasons1
17.06.2020 00:49
Меньшая боковая сторона и меньшее основание прямоугольной трапеции равны по 15 см а большее основание трапеции равно 23 см. найдите длину большей боковой стороны этой трапеции...
okorfeda
29.01.2022 18:08
Составить 5 вопросов по тексту, ...
elena0795
07.08.2022 03:13
Преобразование системы собственности в россии в конце xx века...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('max = ');
readln(max);
s:=1;
while s<=max do
begin
write(s,' ');
s:=s+7;
end;
writeln;
end.
Пример:
max = 40
1 8 15 22 29 36