вычислить сумму Z = 1 + 2 + 3 + .... Вычисления прекратить, когда значение Z превысит заданное значение A.
10-11 класс
|
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-страницу, которая выведет список изучаемых предметов. Каждый элемент списка будет ссылкой на другой файл (находящийся в той же, где и сама страница, директории), содержащий информацию о соответствующем предмете.
Читайте также
при помощи:
1.Операторов цикла.(i:=N1 to N2 do "оператор")
2.Цикла с предусловием.(While)
насколько сумма приблизилась к значению pi^2/6.
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) Найти самую большую цифру:
а) в двухзначном числе
б) трехзначном числе.