:(( решать на паскале. заранее .. 1) в школьном коридоре длиной 56 м нужно покрасить пол. покрасивее часть коридора длиной 22 м, израсходовали а кг краски. сколько еще нужно краски, чтобы докрасить коридор? 2) в классе n учеников. по результатам контрольной работы были получены оценки: а - пятерок; в - четверок; с - троек. найдите процент троек, четверок и пятерок.

1. program z2; var a,g: real; begin     readln(a);   g: =(a/22)*(56-22);   writeln(g: 4: 2); end.  2.program z3; var n,a,b,c: integer;     sa,sb,sc: real; begin    writeln('ведите количество учеников: ');       readln(n);     writeln('введите сколько: 5,4,3');   readln(a,b,c);   sa: =(a*100)/n;   sb: =(b*100)/n;   sc: =(c*100)/n;   writeln('пятёрок: ',sa: 4: 2,'%');   writeln('четвёрок: ',sb: 4: 2,'%');   writeln('троек: ',sc: 4: 2,'%'); end. 

1.177/8     176     22/8         1   16 2               6 в 8 ричной - 261 2.   177/16       176 11           1 в 16-ричной - b1 3. 177/2     176     88/2         1     88     44/2                   0     44     22/2                         0     22   11/2                                   0   10   5/2                                         1   4   2/2                                               1   2     1                                                   0 в 2-ой -   10110001

Var   s: string;         i,k,c: integer; begin        write('введите текст: ');         readln(s);         i : = length(s);         k: =0;         for i: =1 to length(s) do         if s[i] in ['.','? ','! '] then inc(k);         if i > 0 then begin         c : = 1;         while i > 0 do begin         if s[i] = ' ' then         inc(c);         dec(i);         end;         end         else         c : = 0;         writeln('количество слов в тексте: ', c);         writeln('количество предложений в тексте: ', k); end.