Информатика, опубликовано 2018-08-22 18:07:12 by Гость
Напишите программу на паскале А.выясните какие числа ввел пользователь: положительное или отрицательное? Б.выясните какие числа ввел пользователь: четное или нечетное ?
Ответ оставил Гость
Var x:integer;
begin
writeln(Введите число);
readln(x);
if x>0 then write(Число положительное и )
else write(Число отрицательное и );
if x mod 2=0 then write(четное.)
else writeln(нечетное);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на