Ответ:
var i,n:integer;
begin
n:=0;
for i:=1 to 100 do
if (i mod 2 = 0) then inc(n);
writeln(n)
end.
Похожие вопросы и ответы:
- 42) (А. Куканова) Рассматривается множество целых чисел,…
- Известно, что в…
- Помогите 100 баллов Обозначим через ω вписанную окружность…
- 1. Запиши выражения и найди их значения. Увеличить в а раз…
- Нужна схема в visio(просто блок схема) одна цикл с…
- Даны натуральные числа от 1 до 50. Найти сумму тех из них,…
- на распродаже гаджетов при покупке на сумму не менее 100…
- у Саши есть конфеты: 6 мятных, 8 лимонных и 4 вишнёвых. Саша…
- Даны три четырёхзначных числа. Если в них все нечётные цифры…
- сколько существуета)двухзначных чисел сумма которых равна…
- Из 97 вычесть разность чисел 50 и 23К 36 прибавить сумму…
- Периметр треугольника ABC равен 6.Найдите периметр…
- 14.10.22Контрольная работа 1 по теме " Тригонометрические…
- Составить выроржение и найти их значение сумму чисел 8 и 10…
- Петя и Вася поспорили, делится ли n на k или не делится.…