Составить программу, которая, если введенное число четное, меняет его на противоположное(На языке Pascal)
Ответы
Ответ дал:
0
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.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад