Program bi;
type tab=array[1..100,1..100] of integer;
var n,m,i,j,s:integer;
t:tab;
begin
readln(n);
readln(m);
for i:=1 to n do
for j:=1 to m do
readln(t[i][j]);
for i:=1 to n do
for j:=1 to m do
if(t[i][j] mod 2=0) then S:=S+t[i][j];
writeln('Mассив:');
for i:=1 to n do begin
writeln;
for j:=1 to m do
write(t[i][j],' ');
end;
writeln('сумма чётныч чисел ',S);
<span>end.</span>
720 бит, это 90 байт;
N =90/180=0,5 байта или 4 бита;
Ответ: 4 бита.
Var
n:integer;
begin
writeln('Введите номер дня недели');
readln(n);
case n of
1: write('Понедельник');
2: write('Вторник');
3: write('Среда');
4: write('Четверг');
5: write('Пятница);
6: write('Суббота');
7: write('Воскресение');
else writ('Ошибка! В неделе 7 дней, а не больше!');
end;
end.
Ето по твоему 1-4 клас ))
<span>b) Клавиатура, сканер, микрофон, мышь</span>