Для последующих чисел от -15 до 15, все чётные числа возвести в квадрат, нечётные числа заменить на 0. Составить программу.
5-9 класс
|
Var i,ch:integer;
Begin
For i:=-15 to 15 do
Begin
Ch:=i;
If ch mod 2 = 0 then begin
Ch:=sqr(ch); writeln(ch, ' '); end
Else begin ch:=0;
Writeln(ch, ' ');end;
Readln;
End;
Другие вопросы из категории
Одномерный массив из 8 элементов заполнить случайным образом числами от 10 до 20. Заменить все элементы массива меньше 15 их удвоенными значениями.Вывести на экран монитора первоначальный и преобразованный массивы в столбик (столбики должны быть расположены рядом)
Производится одноканальная (моно) звукозапись с частотой дискретизации
48 кГц и глубиной кодирования 16 бит. Запись длится 2 минуты, ее
результаты записываются в файл, сжатие данных не производится. Какое из
приведенных ниже чисел наиболее близко к размеру полученного файла,
выраженному в мегабайтах?
в пионерском лагере N отрядов с различным числом детей/. какой отряд самый малочисленный?
Читайте также
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.
Пожалуйста помогите !!!!!!!!
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.