1)
Program n1;
var sum,k,a: integer;
begin
sum:=0;
k:=0;
readln(a);
while a<>0 do
begin
sum:=sum+a;
k:=k+1;
readln(a);
end;
write('сумма: ',sum,'; срзнач: ',sum/k);
end.
2)
Program n2;
var a,c,sum: real;
k: integer;
begin
k:=1;
readln(a,c);
sum:=a;
repeat
sum:=sum+a*0.25;
k:=k+1;
until sum>=c;
write(k);
end.
Часть А:
1 - C (short int 2 байта -32768/32767)
2 - D. С числа переменные не называются.
3 - C. 3.5*10^-3=0.0035
4 - A, B, M. Ответ: C
Целый тип принимает только целые числа.т.е к примеру: -1, 2, 55, 99999, -99999.
35.5 - вещественное число.true - логический тип. (Да(true)/Нет(false)). Называется Boolean.
'пять' - строка.
5. 4682, 4680. Ответ: B
Часть B:
1. sqrt(x1+x2) + (abs(x1)/abs(x1+x2))
2. ABS(SQR(36)-15 div 2) = 1289
3. 30
4. Не понятно что такое: X <> Y Y.
Часть С:
1.
var A,B:integer;
S,G:real;
begin
readln(A, B);
S := (A+B)/2;
G := sqrt(A*A+B*B);
writeln('S = ', S, ' G = ', G);
end.
11*1024*8[bit]/11264 = 8 бит на символ
значит всего возможных символов 2^8 = 256