Решите задачу дано двузначное число n является ли сумма цифр Этого числа чётной (нечётной). уточните
Если сумма нечетного в ответе Запишите 1 если четное 0​

Решение на языке Pascal

program pr;

var n,a,b,c, sum:integer;

begin

readln (n);

a:=n div 100;

b:=n mod 100 div 10

c:=n mod 10

sum:=a+b+c;

if  sum mod 2 = 0 then writeln ('Сумма цифр четная') else writeln('Сумма цифр четная');

readln;

end.

Объяснение:

вроде как-то так ;-;

ха-ха-ха)) учебник по информатике за 10

там все

программа №4

program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

потхоньку буду дополнять, не так все быстро)) 

№5

program р_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end. 

program ssd;

  uses crt,graph;

  var   a,a1,a2,a3: integer;

  begin

  clrscr;

  writeln('введите трехзначное число');

  readln(a);

  a1: = a mod 10;

  a2: =(a div 10) mod 10;

  a3: = a div 100;

  writeln('      ',a1,a2,a3);

  readkey;

end.