сервис вопросов и ответовсоставить программу вычисления суммы нечётных чисел от 1 до 99.
10-11 класс|
|
Vovan00795
26 окт. 2016 г., 20:43:45 (7 лет назад)
Саша852
26 окт. 2016 г., 23:17:09 (7 лет назад)
//первый вариант
var
i, summ:integer;
begin
summ := 0;
for i := 1 to 99 do
if i mod 2 = 1 then
summ := summ + i;
writeln('Сумма нечетных чисел от 1 до 99 равна: ', summ);
end.
//второй вариант
var
i, summ:integer;
begin
summ := 0;
i := 1;
while i < 100 do
begin
summ := summ + i;
i := i + 2;
end;
writeln('Сумма нечетных чисел от 1 до 99 равна: ', summ);
end.
Ответить
Другие вопросы из категории
ПОмогите ПЛиззз
Перевести 351,67 (10) в ВОСЬМЕРИЧНУЮ И ШЕСТНАДЦАТИРИЧНУЮ
Составьте программу, в которой используется процедура с параметрами, которая в качестве входных данных получает три целых числа и вычисляет их
сумму, произведение и средне арифметическое.
4. Какой канал передачи информации как правило используют для соединения двух серверов?
a) кросс кабель
b) оптоволокно
c) витая пара
d) коаксиальный кабель
Читайте также
1)Написать программу вывода всех четных чисел от 2 до 1000 включительно
2)Написать программу определяющую сумму всех нечетных чисел от 1 до 99
Помогите пожалуйста решить задачи в турбо Паскале!
1) Определить количество двухзначных чисел, сумма цифр которых равна числу N.
2) Составить таблицу для двух столбцов выражения y=x²+3. Ввод чисел через клавиатуру.
3) Составить программу вычисления суммы кубов чисел от 1 до 5.
4) Вычислить сумму части ряда, 1/3, 1/6, 1/9, 1/12....
5) Среди двухзначных чисел, найти те, сумма цифр которых делятся на 3.
6) Найти самую большую цифру:
а) в двухзначном числе
б) трехзначном числе.
Составьте программу вычисления суммы нечётных чисел в диапазоне от 1 до 100.
1+3+5+... ... + 99
Pascal ABC
Вы находитесь на странице вопроса "составить программу вычисления суммы нечётных чисел от 1 до 99.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.