Напишите программу в Паскале Определить является ли число четным, оканчивающимся на 4

да

потому что оно делиться на два

var

 x : integer;

 begin

   write('x=');

   readln(x);

   if x mod 10 = 4 then

     writeln('Число чётное и оканчивается на 4')

   else

     writeln('Число или нечётное, или не оканчивается на 4');

 end.

1) 35-25=10 (чел.) - не являются читателями школьной библиотеки

2) 35-20=15 (чел.) - не являются читателями районной библиотеки

3) (25+20)-35=10 (чел.) - читатели обеих библиотек

4) 20-10=10 (чел.) - читатели только районной библиотеки

5) 25-10=15 (чел.) - читатели только школьной библиотеки

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.