В классе 20 учеников, из них получили (за четверть или за контрольную - не важно) :
"5" - 3
"4" - 7
"3" - 8
"2" - 1
н/а - 1
(3+7+8)/20*100=90%
..согласно последним веяниям в образовании, двоечников и неаттестованных быть не должно, т. е. , успеваемость должна составлять 100%
Качество - это отношение количества учеников, успевающих на 4 и 5 к количеству успевающих учеников. В нашем примере
(3+7)/18*100=55,6%
В модуле CRT есть процедура, которая устанавливает цвет текста: TextColor(Цвет)
В качестве цвета служат числа от 0 до 15, либо константы (Green, Red и т.п.)
Пример:
uses crt;
begin
TextColor(LightGreen);
writeln('Цветной текст')
<span>end.</span>
1024 : 256= 4 (скорость 256 бит/с < 1024бит/с в 4 раза)
За одно и то же время можно передать файл размером в 4 раза меньше:
4 Кбайт :4 =1 Кбайт=1024 байта.
Var
a,b,c:integer;
Begin
write('Введите a,b,c (через пробел)');
Readln(a,b,c);
Write('Самое большое из них ');
if (a>b) and (a>c) then write(a) else if b>c then write(b) else write(c);
End.
С таблицей давай сам(а). А с км все просто. Умножь км на кол-во зверя( 5 зайцев * 8=40 км; это за декабрь; за январь 8*8=64км(зайцев) 2*15=30км(волка); 2*10=20(лиса) 64+30+20=114км он пробежал за январи. Посчитай сколько он пробежал за февраль и сложи 40+114+февраль и получишь сколько он пробежал за весь сезон. А потом сложи км всех зайцев и получишь сколько он пробежал км за зайцами за весь сезон. Тоже самое сделай с лисами и волками.
Вот и вся задача. Удачи!