Program abitura;
Uses Crt;
var n,i,r,n1,n2,n3:integer;
begin
clrscr;
write('Введите количество абитуриентов:');
readln(n);
for i:=1 to n do
begin
writeln('Абитуриент номер ' ,i );
write('Введите оценку за первый экзамен');
readln(n1);
write('Введите оценку за второй экзамен');
readln(n2);
write('Введите оценку за третий экзамен');
readln(n3);
r:=n1+n2+n3;
if (r>=13) then writeln('Вы зачислены на дневное отделение ');
if (r>10) and (r<12) then writeln('Вы зачислены на вечернее отделение ');
if (r>=8) and (r<=9) then writeln('Вы зачислены на заочное отделение ');
if (r<8) then writeln('Вам отказанно в зачислении ! ');
end;
readkey;
end.
Может CTRL+f3 и в какой программе? В разных прогах м.б. разное
K = 8*64*32 =2*3 * 2*6 * 2*5 = 2*14 (два в четырнадцатой) символов
16 бит = 2*4(два в четвертой) => Переводи в Юникод: 2*14 *2*4 = 2*18
1Кбайт = 2*13 бит
2*18 / 2*13 = 2*5 = 32Кбайта
Ответ:2
Пишешь в первой строке: х, затем числа, для которых посчитать
во второй строке: у, затем:
=ЕСЛИ(B1<-1;-4*B1+2+SIN(B1);ЕСЛИ(B1<0;ABS(B1);2*B1*LN(B1+1)))