Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

вычислить сумму Z = 1 + 2 + 3 + .... Вычисления прекратить, когда значение Z превысит заданное значение A.

10-11 класс

Eliseyking46 14 авг. 2014 г., 23:46:13 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Фиона890
15 авг. 2014 г., 2:20:55 (9 лет назад)

var a,z,n: integer;
begin
n:=1;
z:=0;
readln(a);
repeat
z:=z+n;
n:=n+1
until z>a;
writeln(z);
end.

 Вот программа

Ответить

Другие вопросы из категории

как найти площадь ромба
хелп...спасите помогите..нужна срочно помощь.. с информатикой:

Создайте Web-страницу, которая выведет список изучаемых предметов. Каждый элемент списка будет ссылкой на другой файл (находящийся в той же, где и сама страница, директории), содержащий информацию о соответствующем предмете.

Читайте также

Вычислить сумму Z = 1 + 2 + 3 + ... . Вычисления прекратить, когда значение Z превысит заданное значение A. Решить

при помощи:

1.Операторов цикла.(i:=N1 to N2 do "оператор")

2.Цикла с предусловием.(While)

Для заданного положительного e и заданного x вычислить сумму ряда с точностью e. Суммирование ряда завершается, если модуль очередного слагаемого меньше

e. Определив тип общего члена ряда, и организовав вычисление его суммы со структурой вложенных циклов, получить таблицу, состоящую из переменных X, Y, S, при |X|<1.

Помогите пожалуйста решить задачи в турбо Паскале!

1) Определить количество двухзначных чисел, сумма цифр которых равна числу N.
2) Составить таблицу для двух столбцов выражения y=x²+3. Ввод чисел через клавиатуру.
3) Составить программу вычисления суммы кубов чисел от 1 до 5.
4) Вычислить сумму части ряда, 1/3, 1/6, 1/9, 1/12....
5) Среди двухзначных чисел, найти те, сумма цифр которых делятся на 3.
6) Найти самую большую цифру:
а) в двухзначном числе
б) трехзначном числе.



Вы находитесь на странице вопроса "вычислить сумму Z = 1 + 2 + 3 + .... Вычисления прекратить, когда значение Z превысит заданное значение A.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.