составить программу распечатки на экране чисел от 80 до 10, кратных 11. На паскале,ребят =)
10-11 класс
|
var i: integer;
begin
for i:=80 downto 10 do
if(i mod 11=0) then writeln(i);
end.
var
i: integer;
begin
for i := 80 downto 10 do
if i mod 11 = 0 then
writeln(i);
end.
Другие вопросы из категории
центре,ребят срочно надо помогите))))
задание по теме кодирование и измерение информации
1. Сообщение, записанное
буквами из 64-символьного алфавита,
содержит 20 символов. Какой объем
информации оно несет?
2. Какой объем видеопамяти необходим для хранения четырех страниц изображения, если битовая глубина равна 24, а разрешающая способность дисплея - 800 х 600 пикселей?
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Найти количество слов в строке.
Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить сколько амеб будет через 3,6,9,12,....24 часа?
Читайте также
1 1 1
2 4 8
3 9 27
----------------
10 100 1000
2)Написать программу определяющую сумму всех нечетных чисел от 1 до 99
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .