. Определить количество натуральных двузначных чисел, меньших 50, которые не делятся на 11. в делфи
10-11 класс
|
var
i, ans: byte;
begin
ans := 0; // Обнуляем ответ.
for i := 10 to 49 do // Переменной i перебираем значения от 10 до 49, то есть все
натуральные двузначные числа, меньшие 50-ти
if i mod 11 <> 0 then // Если текущее значение переменной не делится на 11, то…
inc(ans); // Увеличиваем ответ
writeln(ans); //Выводим окончательный ответ
end.
Другие вопросы из категории
случае. Помогите пожалуйста!!!
1)
MXXV + XXXII =
—
2)
LI + LII =
—
3)
XLVIII + CCLXVIII =
—
4)
MD – CC =
—
5)
CMXCIX – CIX =
—
Есть полоска из белых клеток. Двое ходят по
очереди. За ход разрешается покрасить в чёрный цвет одну белую клетку. Кто не может
сделать ход, проигрывает.
Читайте также
вверх), второе - номер горизонтали (при счете слева направо). Даны натуральные числа k, l, m,n, каждое из которых не превосходит восьми. Требуется:
1. выяснить, являются ли поля (k, l) и (m, n) полями одного цвета
2. на поле (k, l) расположен ферзь. Угрожает ли он полю (m, n)?
задача в Delphi.
№2 Начальный вклад в сберкассу составил А руб. Через сколько лет удастся накопить В руб. без учета дополнительных вкладов, если каждый год вклад увеличивается на 3%.
№3 Определите число суток с 1900 по 1999 года, если известно, что високосные годы - это те, у которых номер делится на 400 или те, у которых номер делится на 4, но не делится на 100.
400. Решить нужно с помощью case.
элементов. Заполнить его с клавиатуры. Найти:
а) удвоенную сумму положительных элементов;
б)вывести индексы тех элементов, значения которых больше значения предыдцщего элемента ( начиная со второго)