Написать программу в паскале, которая прибавляет к 1 число 7 до тех пор, пока полученная сумма не превысит max число, введенное с клавиатуры. после каждого действия вывести полученную сумму, если она меньше max числа

Ответ:

динька2

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 оценок)

Популярные вопросы: Информатика

34224253

29.11.2021 06:48

Для данного натурального числа n требуется вычислить сумму 1+1/2+1/3++1/n. постройте блок схемы и напишите на ая два варианта алгоритма: с циклом-до и циклом-пока...

900901

29.11.2021 06:48

Решается моя судьба! : ( дан двумерный массив а[n,m] определить сумму кубов всех элементов массива...

маридиана

16.06.2022 20:47

1. Текстовый редактор — это программа, предназначенная для: а) работы с текстовой информацией в процессе делопроизводства, редакционно-издательской деятельности и др. ; б) работы...

AnnFair

23.10.2021 19:08

Народ очень контрольная по информатике...

ron22218a

09.04.2021 00:10

С таблицы 3.8: 1) декодируйте сообщение 64 65 73 6В 74 6F 70; 2) запишите в двоичном коде сообщение TOWER; 3) декодируйте сообщение 01101100 01100001 01110000 01110100 01101111...

zyryanovairina

26.09.2022 22:57

Где можно найти команды КОПИРОВАТЬ и ВЫРЕЗАТЬ при работе в программе AUDACITY? в меню, которое открывается после щелчка правой кнопки мыши по выделенному фрагменту звукав главном...

polinamunteanu

07.01.2021 01:49

1. Как называется логическое умножение: А)конъюнкция Б)дизъюнкция В) инверсия.2. Как называется логическое отрицание: А) конъюнкция Б) дизъюнкция В)инверсия.3. Из чего состоит...

НикаКолядина2000

18.04.2023 02:10

Изучи предложенный программный код и определи результат его выполнения. Едет вперёд 5 оборотов, если показатель датчика ультразвука меньше 50, выводит круг, иначе – прямоугольник.Едет...

Анастасия133758

28.06.2022 00:17

1. Что будет выведено при выполнении следующей команды при a = 5 и b = 3? а) print( a, , b, ! ) б) print( a , b! ) в) print( ( , a, ) ( , a+b, ) ) 2. Запишите команду для вывода...

Stefan123005

20.07.2020 06:15

Программа SketchUp Какие фигуры относятся к телам вращения? Какие инструменты нужны для изготовления конуса? Что такое Сфера? Какие инструменты нужны для изготовления цилиндра?...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку