Формула для определения размера стипендии:
=ЕСЛИ(СУММ(D6:G6)=20;ЕСЛИ(I6="староста";1100;1000);ЕСЛИ(СУММ(ЕСЛИ(D6>3;1;0);ЕСЛИ(E6>3;1;0);ЕСЛИ(F6>3;1;0);ЕСЛИ(G6>3;1;0);)>=4;ЕСЛИ(I6="староста";850;750);0))
Описание:
1) первое вложение: проверка условия отличник ли, для истины сумма баллов должна быть 20. Если истина, то проверяется староста или нет и ставится 1100 рублей, или 1000 рублей.
2) второе вложение: если первое ложь, то идет в работу оно. При этом студент может быть не отличником, но с базовой стипендией. Для этого проверим, есть ли у его тройки: если число в ячейке больше 3, вернуть 1, и добавить к общей сумме, взять следующую ячейку. Если в ней число больше трех, то добавить к сумме и так включительно до 4-й. Если после этих операций, Сумма получилась больше 4х(во всех ячейках больше 3 оценка, если хотя бы в одной меньше, то выйдет меньше 4 сумма) то даем стипендию студенту, но проверяем, староста ли он. И выдаем соответственно 750 или 850. Проверка на старосту, делается с помощью проверки ячейки в последнем столбце. Если там есть запись староста, то к стипендии +100 рублей.
Var
x, n, max: integer;
begin
n := 0;
max := 0;
while true do
begin
read(x);
if(x mod 3 = 0)and(x<>0) then n := n + 1
else begin if(n > max) then max := n; n := 0; end;
if(x = 0) then break;
end;
write(max);
end.
256 символьный алфавит значит
2⁸=256
один символ имеет объём 8 бит
всего в сообщении
80*32*2=5120 символов
5120*8=<em><u>40960 бит занимает сообщение </u></em>
40960/1024/8=<em><u>5 килобайт занимает сообщение</u></em>
Сперва замечания по коду: после b:=0 нужна точка с запятой
и в цикле между числами пишется to, а не do
a=5; b=-5
Turbo Pascal
1)USES CRT;
VAR A:array[1..10] of integer;
i:integer;
BEGIN
CLRSCR;
For i:=1 to 10 do
begin
A[i]:=i+i+1;
Write(A[i],' ');
end;
READLN;
<span>END.
2)
USES CRT;
VAR A:array[1..10] of integer;
i:integer;
BEGIN
CLRSCR;
For i:=1 to 10 do
begin
A[i]:=i+i+i;
Write(A[i],' ');
end;
READLN;
<span>END.</span></span>
