Дано целое число оканчивается ли оно четной цифрой. паскаль

ответ:

var x: integer;

begin

read(x);

if x mod 2=0 then write('да')

else write('нет');

end.

да так как они оканчиваются на любую цифру

Персональный компьютер, пк (. personal computer, pc), пэвм (персональная электронно-вычислительная машина) — настольная микро-эвм, имеющая эксплуатационные характеристики бытового прибора и универсальные функциональные возможности[1]. согласно гост 27201-87 пк применяются как средства массовой автоматизации (в основном для создания на их основе автоматизированных рабочих мест) в социальной и производственных сферах деятельности в различных областях народного хозяйства и предназначенные для пользователей, не специальными знаниями в области вычислительной техники и программирования. изначально компьютер был создан как вычислительная машина, в качестве пк он так же используется в других целях — как средство доступа в информационные сети и как платформа для компьютерных игр.

Вот на pascal  (console aplication) : var        a: integer; begin  writeln('vvedite nominal valuti');   readln(a);   case (a mod 10) of    1:     if (a=11) then      writeln('y vas est ',a,' rublei')    else    begin      writeln('y vas est ',a,' rubl');     end; 2,3,4:     if (a=12) or (a=13) or (a=14)  then    writeln('y vas est ',a,' rublei')    else    begin    writeln('y vas est ',a,' rublya');     end; 0,5,6,7,8,9:     if (a=15) or (a=16) or (1=17) or (a=18) or (a=19) then    writeln('y vas est ',a,' rublei')    else    begin    writeln('y vas est ',a,' rublei');     end;   end; readln; end.