Помогите пожалуйста. надо программу на паскале . Выведите (через пробел) все четные числа от a до
5-9 класс
|
Var a,b,i:integer;
begin
read(a,b);
for i:=a to b do if(i mod 2 = 0) then write(i,' '); {Пробегаемся циклом по этим цифрам и смотрим у кого остаток от деления на 2 = 0, если равен значит четное и выводим это значение}
end.
Другие вопросы из категории
Объясните пожалуйста, чтобы я поняла(
фрезеровщики (Ф). Каждый рабочий имеет разряд не меньший второго и не
больший пятого. На рисунке 1 отражено количество рабочих с различными
разрядами, а на диаграмме 2 распределение рабочих мест по специальностям.
Каждый рабочий имеет только одну специальность и один разряд.
Имеются 4 утверждения:
1) В цехе трудятся 100 рабочих.
2) В цехе трудятся 50 слесарей.
3) В цехе трудятся 25 фрезеровщиков.
4) Все токари могут иметь третийразряд.
5) Все рабочие 3-го разряда могут быть токарями.
6) Все рабочие 3-го разряда могут быть фрезеровщиками.
7) Все слесари могут иметь пятый разряд.
8) Все токари могут иметь четвёртый разряд.
Помогите пожалуйста.
Читайте также
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
число отрицательное, то выведите сообщение, что значение у не существует.
Дана строка. Верно ли, что второе слово начинается на ту же букву, которой заканчивается третье слово?