Решить , ! 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

Для подсчёта слов в предложении, вот код: program slova; var   s: string;   r,i: integer; begin   writeln('введите ваше предложение');   readln(s);   s: =s+' ';   for i: =1 to length(s)-1 do   if (s< > ' ') and (s[i+1]=' ') then   r: =r+1;   writeln('в предложении ',r, ' слов. ');   readln; end. какая буква встречается чащеprogram bykv; var s: string;       i,k1,k2: byte; begin       write('введите строку: '); readln(s);       for i: =2 to length(s)-1 do         if s[i]=s[1] then inc(k1)           else if s[i]=s[length(s)] then inc(k2);       writeln('первая буква встречается ',k1);       writeln('последняя буква встречается ',k2);       writeln('вывод: ');       if k1> k2 then writeln('первая буква встречается чаще')         else if k1< k2 then         writeln('последняя буква чаще')           else writeln('одинаково');       readln; end. изменить слово петя на иван в строке program test; var s,t,z,p: string; j: integer; begin writeln('введите ваше предложение'); readln(s); write('введите слово которое хотите заменить: '); readln(t); write('введите замену слову: ', t, ' < > '); readln(z); if pos(t,s)< > 0 then j: =pos(t,s); p: =copy(s,1,j-1); p: =p+z; p: =p+copy(s,j+length(t),length(s)); writeln(p); readln; end.