:(( решать на паскале. заранее .. 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. 

Модуль

unit spacelib;

interface

uses system;

const

    ch = ' ';

function mytrimleft(s: string): string;

function mytrimright(s: string): string;

function mytrim(s: string): string;

function mysinglespaces(s: string): string;

function mynospaces(s: string): string;

implementation

function mytrimleft(s: string): string;

begin

    mytrimleft : = regex.replace(s, '^[' + ch + ']+', '');

end;

function mytrimright(s: string): string;

begin

    mytrimright : = regex.replace(s, '[' + ch + ']+$', '');

end;

function mytrim(s: string): string;

begin

    s : = regex.replace(s, '^[' + ch + ']+', '');

    mytrim : = regex.replace(s, '[' + ch + ']+$', '');

end;

function mysinglespaces(s: string): string;

begin

    s : = mytrim(s);

    mysinglespaces : = regex.replace(s, '[' + ch + ']+', ' ');

end;

function mynospaces(s: string): string;

begin

    mynospaces : = s.replace(ch, '');

end;

end.

пример

//pascalabc.net версия 3.4.0.1677 от 17.06.18

//если программа не запускается, то обновите версию

uses spacelib;

begin

    var s : = '   123 123   23 4343     434 43 34     ';

    writelnformat('"{0}"', mytrimleft(s));

    writelnformat('"{0}"', mytrimright(s));

    writelnformat('"{0}"', mytrim(s));

    writelnformat('"{0}"', mysinglespaces(s));

    writelnformat('"{0}"', mynospaces(s));

end.