Составить программу, которая, если введенное число - вопрос №11319667 от artemovaelena 25.05.2022 13:18

Question

Информатика: Составить программу, которая, если введенное число четное, меняет его на противоположное(На языке Pascal)

artemovaelena · Answer

program pair;

var a, b:integer;

begin

writeln('Введите число');

readln(a);

if a mod 2 = 0 then

begin

a := -a;

writeln(a);

end

else

writeln('Число нечетное...');

end.