Практическая работа 24-27 января

 №1//  фам1 Если число нечетное, то сделать его равным 0, иначе от него отнять 2

var b, y:integer;
begin
write('Введите число ');
readln(b);
if b mod 2=1 then y:=0 
                        else y:=b-2 ;
writeln('результат=' ,y);
end.

  №2 Если число четное, то сделать его равным 10, иначе прибавить  7

№3 Если число положительное, то добавть  к немудобавить  число 10, иначе сделать его равным 7

 №4   Даны два числа: Х и У. Являются ли они оба четными.

 №5  Даны два числа: Х и У. Являются ли они оба нечетными.

 №6-8. Составьте программы  к задачам: Ввести с клавиатуры  число x, вычислить у.

№9 Ввести с клавиатуры число, проверить является ли оно 4 значным и выдать ообщение

№10 Ввести с клавиатуры число, проверить является ли оно 3- значным  и четным и выдать ообщение