сервис вопросов и ответовсоставить программу подсчета суммы четных чисел от 10до 50
10-11 класс|
|
Stiket678
07 июня 2013 г., 9:39:00 (10 лет назад)
Vipreznichenko
07 июня 2013 г., 12:17:50 (10 лет назад)
Program gg;
Var i,s: integer;
Begin
For i:=10 to 50 do
if i mod 2=0 then s:=s+i;
Writeln('Сумма всех четных чисел от 10 до 50 равна ',s)
end.
Ответить
Другие вопросы из категории
Читайте также
1)Написать программу вывода всех четных чисел от 2 до 1000 включительно
2)Написать программу определяющую сумму всех нечетных чисел от 1 до 99
Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
Помогите пожалуйста решить задачи в турбо Паскале!
1) Определить количество двухзначных чисел, сумма цифр которых равна числу N.
2) Составить таблицу для двух столбцов выражения y=x²+3. Ввод чисел через клавиатуру.
3) Составить программу вычисления суммы кубов чисел от 1 до 5.
4) Вычислить сумму части ряда, 1/3, 1/6, 1/9, 1/12....
5) Среди двухзначных чисел, найти те, сумма цифр которых делятся на 3.
6) Найти самую большую цифру:
а) в двухзначном числе
б) трехзначном числе.
Вы находитесь на странице вопроса "составить программу подсчета суммы четных чисел от 10до 50", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.