Информатика, опубликовано 2018-08-22 22:30:09 by Гость
Дано число, дать характеристику числа:а) положительное или отрицательноеб)четное или нечетное
Ответ оставил Гость
Если Pascal, то вот:
Program z1;
var a:integer;
begin
Write(Введите число: ); read(a);
if (a>0) then Writeln(Данное число положительное)
else Writeln(Данное число отрицательное);
if (a mod 2=0) then Writeln(Данное число чётное)
else Writeln(Данное число нечётное);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.