Паскаль. Составить программу введённого пользователем числа(целое или нет; положительное, отрицательное или нуль; чётное или нечётное)
10-11 класс
|
var a: real;
begin
read(a);
if (a mod 2=0) and(a<>0) then write('четное');
if (a mod 2=0) and(a<>0) then write('не четное');
if a=0 then write('нуль');
if a>0 then write('положительное');
if a<0 then write('отрицательное');
if a=0 then write('нуль');
end.
Другие вопросы из категории
1. В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов.
2.Дан массив действительных чисел,размерность которого N. Подсчитать сколько в нем отрицательных положительных и нулевых элементов.
Составьте программу, которая вычисляет сумму чисел от 1 до N. Значение N вводится с клавиатуры.
а) делением на 2
б) по схеме N в 10->N в 8->n в 2
в) по схеме N в 10->N в 16->n в 2
массива. Выведите на экран исходный массив и полученную разность .
Читайте также
Использовать цикл с предусловием.
На обычном паскале, не турбо.
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
1. Если сумма двух каких либо введеных чисел меньше 100. в противном случае, программа должна вывести 0. ничего, кроме число 0 или 1 программа выводить не должна каждое число не превышает 10000
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE