написать программу на паскале выводящую на экран все четные числа от 20 до 40
5-9 класс
|
Program num1;
Uses crt;
Var
i : integer;
Begin
clrscr;
for i:=20 to 40 do
if (i MOD 2) = 0 then write(i,' ');
End.
Другие вопросы из категории
Входные данные:
Во входном файле содержится единственное целое число n (0<=n<=2000000).
Выходные данные:
Выходной файл должен содержать одно число - количество двоичных едениц в записи числа n.
#| input.txt| output.txt|
1| 5| 2|
2| 16| 1|
3| 121| 5|
P.S. Пять целых пять двенадцатых плюс четыре целых семь восемнадцатых минус шесть целых две девятых.
Надо срочно, буду благодарна :)
(подогрев сидений и подогрев руля) или не оснащаться дополнительным оборудованием вовсе. Для каждой модели автомобиля и каждого набора опций выпускается прайс-лист. Один прайс-лист содержит базовую часть, содержащую информацию об одной модели «Lada» и дополнительную часть с каким-то набором опций. Тираж каждого прайс-листа практически неограничен и достаточен при любом наплыве посетителей. Посетителями салона являются только семейные пары. Муж и жена берут по одному прайс-листу по следующему правилу: базовая часть прайс-листов одинакова (семья заранее знает, какую модель «Lada» собирается купить), а дополнительная часть прайс-листов различна. В результате все семейные пары покидают салон, ничего не купив, но унося по паре прайс-листов. Чему равно наибольшее возможное количество семей, чьи пары прайс-листов различны?
Читайте также
Нужно написать программу, которая выводит на экран все двухзначные числа, делящиеся на 3 или на 5 (использовать операции целочисленного деления div или mod)
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Задание 5.Дополните программу из задания 4 так , чтобы на экран выводились числа от 1 до 10,а также квадраты и кубы этих чисел в следующем виде:
1 1 1
2 4 8
3 9 27
... ... ...
10 100 1000
ПОМОГИТЕ ПОЖАЛУЙСТА,ЗАДАНИЕ 4 ПИСАТЬ НЕ НУЖНО !ПОСТАВЛЮ ЛУЧЩИЙ ОТВЕТ И "СПАСИБО"
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.