ПОМОГИТЕ ПОЖАЛУЙСТА:(( РЕШАТЬ НА ПАСКАЛЕ. ЗАРАНЕЕ СПАСИБО.. 1) В школьном коридоре длиной 56 м нужно покрасить пол. Покрасивее часть коридора длиной 22 м,израсходовали А кг краски. Сколько еще нужно краски,чтобы докрасить корид...
ПОМОГИТЕ ПОЖАЛУЙСТА:((
РЕШАТЬ НА ПАСКАЛЕ.
ЗАРАНЕЕ СПАСИБО..
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.
Не нашли ответ?
Похожие вопросы