Учеба и наука
Помогите написать задачу по Borland Pascal - вопрос №478507
Задача
написать программу, которая определяет чётное число или нечётное( можно использовать команду mod)
Задача 2
Даны целые числа, написать программу с заменой положительных чисел Еденицей(1), а отрицательных чисел нулём(0)
ноябрь 27, 2012 г.
-
Всего ответов: 1
-
program z1;
var x:integer;
begin
writeln('Vvedite chislo');
readln(x);
if x mod 2 = 0 then writeln('chetnoe') else writeln('nechetnoe');
readln
end.