Составить алгоритм определяющий является ли введенное число четным? Если число четное, вывести соответствующее сообщение и аналогично, вывести сообщение, если вводимое число не является четным. (число четное, если оно делиться на два)​

/*Дано трехзначное число. Найти сумму и произведение его цифр. Вывести число, полученное при прочтении исходного числа справа налево. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число. В нем зачеркнули первую справа цифру и приписали ее слева. Вывести полученное число. Вывести число, полученное при перестановке цифр сотен и десятков исходного числа (например, 123 перейдет в 213). Вывести число, полученное при перестановке цифр десятков и единиц исходного числа (например, 123 перейдет в 132).*/ #include <stdio.h> #include <clocale> void sp (int); //функция нахождения суммы и произведения цифр void sprnl (int); //функция прочтения числа справа налево void pervsl (int); //функция 3 :D void pervsp (int); //функция 4 :P void sotdes (int); //функция перестановки сотен и десятков void desedin (int); //функция перестановки десятков и единиц int main() { setlocale (2, ".1251"); int num; do { printf ("Введите число: "); while (!(scanf("%d", &num)) || num < 100 || num > 999) { fflush(stdin); printf ("\nОшибка. Введите заново: "); } sp (num); sprnl (num); pervsl (num); pervsp (num); sotdes (num); desedin (num); printf ("\n\n"); } while (1); return 0; } void sp (int a) { int sum=0, mult=1; while (a) { sum+=a%10; mult*=a%10; a=a/10; } printf ("\n\nСумма цифр равна: %d", sum); printf ("\nПроизведение цифр: %d", mult); } void sprnl (int num) { int a, b, c; a=num%10; num/=10; b=num%10; num/=10; c=num%10; printf ("\nПеревернутое число: %d", 100*a+10*b+c); } void pervsl (int num) { int a, b; a=num%100; b=num/100; printf ("\nЗачеркнули первую слева цифру и приписали ее справа: %d", a*10 + b); } void pervsp (int num) { int a, b; a=num%10; b=num/10; printf ("\nЗачеркнули первую справа цифру и приписали ее слева: %d", a*100 + b); } void sotdes (int num) { int a, b, c; a=num%10; num/=10; b=num%10; num/=10; c=num%10; printf ("\nПерестановка сотен и десятков: %d", b*100 + c*10 + a); } void desedin (int num) { int a, b, c; a=num%10; num/=10; b=num%10; num/=10; c=num%10; printf ("\nПерестановка десятков и единиц: %d", c*100 + a*10 + b);

Program cikli;unit math;var  i,n,s,p:integer;  a:array[1..20]of integer;begin writeln('Исходный массив: '); for i:=1 to 20 do begin  a[i]:=RandomRange(1,20);  writeln(' Элемент ',i,' =  ',a[i]); end; writeln('Сумму и произведения скольки первых чисел вы хотите посчитать? '); readln(n); s:=0;p:=1;//цикл с параметром For i:=1 to n do begin  s:=s+a[i];  p:=p*a[i]; end;writeln('Цикл с параметром');writeln('Сумма первых ',n,' чисел = ',s);writeln('Произведения первых ',n,'чисел = ',p); //цикл с предусловиемi:=1;p:=1;s:=0;while i<>n do begin s:=s+a[i]; p:=p*a[i]; i:=i+1;end;writeln('Цикл с предусловием');writeln('Сумма первых ',n,' чисел = ',s);writeln('Произведения первых ',n,'чисел = ',p); //цикл с постусловиемi:=0;s:=0;p:=1;repeat  i:=i+1;  s:=s+a[i];  p:=p*a[i];until i=n;writeln('Цикл с постусловием');writeln('Сумма первых ',n,' чисел = ',s);writeln('Произведения первых ',n,'чисел = ',p);End.