1.
program z2;
var a,g:real;
begin
readln(a);
g:=(a/22)*(56-22);
writeln(g:4:2);
end.
<span>
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,'%');
<span>end. </span></span>
Var
n, i, a, s: integer;
begin
s := 0;
readln(n);
for i := 1 to n do
begin
readln(a);
if a mod 6 = 0 then
s := s + a;
end;
writeln(s);
end.
Вроде 125 секунд (2 минуты и 5 секунд) на передачу.
P.S. Пишу вроде потому, что мы ещё не проходили данную тему (про Мегабит и Мегабайт)
Program;
Uses vincrt;
Var i,n: integer
Begin
i:=0;
writeln('n=');
Raedln(n);
If (n mod 2 = 1) then i:=i+1;
End.
Матрица - это двумерный массив, т.е. другими словами таблица. Ели матрица двоичная, то ее элементы - это 0 и 1.
В качестве примера:
1 0 1 1
0 1 1 1
1 0 1 1
1 1 1 1
Примеры использования:
Ну, скажем - любой японский кроссворд, любое черно белое (двухцветное изображение), таблица наличия или отсутствия (где ставится - "+" ("Да", "Есть" и т.п.) (1) - есть в наличии, "-" ("Нет" и т.п.)(0) - нет в наличии) и т.д.