составить программу вычисления суммы нечётных чисел от 1 до 99.
10-11 класс
|
var i,s:integer;
begin
s:=0;
for i:=1 to 99 do
if (i mod 2=1) then inc(s,i);
writeln(s)
end.
Другие вопросы из категории
2-должны выводиться данные 20 учеников (название группы; порядковый номер ученика; имя; фамилия; год рождения; 5 оценок по разным предметам) из файла на экран При нажатии 3-добавление одного или нескольких учеников в список по вышеперечисленным критериям При нажатии 4-Вывести на экран учеников или ученика с минимальным средним баллом При нажатии 5-Вывод списка учеников в txt документ в порядке убывания средних оценок *После каждого действия должно задавать вопрос("продолжить работать в программе или выйти?")
Они разместили объявление в интеренте вместе с анкетой. Но кандидатов оказалось слишком много. Профессор фон Вокензер решил, что они возьмут трех самых высоких игроков, то успех гаранторован. В первой строке вводится единственное число N - количетво людей, пожавших заявку. Во второй строке вводится N чисел аi - рост i-кандидата. Выведите росты тех игроков которые примут участие в открытии союза.
Читайте также
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+3+5+... ... + 99
Pascal ABC