Решить , ! oпределите значение d после выполнения фрагмента программы: d: =3255; f: =d div 15-17; z: =d div (f*5); d: =d mod (z+1);

Vard,f,z: integer; begin d: =3255; f: =d div 15-17; z: =d div (f*5); d: =d mod (z+1); writeln (d); end.ответ. 3

                          плотник      слесарь    токарь плотников                 -                -              + слесарев                  +                -              - токарев                      -              +              -

1)var a: integer; begin       write('введите число: ');       read(a);       if (a div 10 + a mod 10 + a div 10 mod 10) mod 2 = 0       then writeln('сумма цифр четна')                             else writeln('сумма цифр нечетна') end.2)var a: integer; begin      write('введите число: ');     read(a);       if a mod 2 = 0 then writeln('последняя цифра числа четная')                            else writeln('последняя цифра числа нечетная')end.