сервис вопросов и ответов1)Найдите сумму натуральных нечетных чисел не превышающих n!!!!Это нужно сделать циклом for. 2) Составьте программу,которая производит
10-11 класс|
|
суммирование произвольного количества целых чисел вводимых с клавиатуры.Концом последовательности служит ввод отрицательного числа.Программу составьте двумя способами: использую цикл с предусловием и цикл с постусловием
Indira79
27 июня 2013 г., 16:59:39 (10 лет назад)
Karishaalma
27 июня 2013 г., 18:05:40 (10 лет назад)
1)
var
n, i, s:integer;
begin
s := 0;
readln(n);
if n mod 2 = 0 then
n := n div 2 -1
else
n := n div 2;
for i := 0 to n do
begin
s := s + (1+2*i)
end;
write(s)
end.
2)
var
a, s: integer;
begin
s := 0;
read(a);
while (a >= 0) do
begin
s := s + a;
read(a)
end;
writeln;
write(s)
end.
var
a, s: integer;
begin
s := 0;
a := 0;
repeat
s := s + a;
read(a)
until a < 0;
writeln;
write(s)
end.
Ответить
Другие вопросы из категории
Как составить блок-схему и программу, проверяющую, верно ли
утверждение, что введенное вами целое число является четным.
помогите решить задачи по информатике на языке программирования паскаль. 1. сумма положительных элементов.
2. количество нулевых элементов.
Читайте также
Напишите программу, которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных чётных чисел, не превосходящих
256. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 256.
помогите решить Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 6. Пример работы программы: Входные данные Выходные данные 3 12 25 6 18 20.2
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 3. Программа получает на вход количество
чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3.Количество чисел не превышает 100. Введённые числа не превышают 300.Программа должна вывести одно число – сумму чисел, оканчивающихся на 3.
Паскаль
Вы находитесь на странице вопроса "1)Найдите сумму натуральных нечетных чисел не превышающих n!!!!Это нужно сделать циклом for. 2) Составьте программу,которая производит", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.