помогите с задачами по информатике
10-11 класс
|
1) var a:integer;
begin
write ('vvedit chislo');
read (a);
if (a>99)and (a <1000) then write ('triznacne') else write ('ne triznacne ');
readln;
end.
2)var a:integer;
begin
read (a);
if a mod 2=0 then write ('chetne') else write ('nechetne');
readln;
end.
Другие вопросы из категории
наибольшим в своей строке и наименьшим в своем столбце. Для заданной целой матрицы размером n*m напечатать индексы всех ее седловых точек.
Вычислить сумму квадратов отрицательных чисел,
стоящих на местах, кратных 3; подсчитать количество чисел, не принадлежащих промежутку [А, В).
результат сравнения двух чисел.
3)Вести линейный массив и вычислить сумму всех элементов этого массива.
Помогите написать программу и в ней разобраться)
Читайте также
ько информации несет свод законов племени, если в нем 12 строк и в каждой строке по 20 символов?
2. количество нулевых элементов.