97 cсимволов * 32 бита = 3104 бит = 3104/8 байт = 388 байт
1)9
2)12
3)31
4)4
5)2
6)1
7)0
8)10
Ответ:7,6,5,4,1,8,2,3.
1.Var a,b:integer;
begin
writeln ('введи вес в кг и рост в см');
Readln (a,b);
if (b-100=a+5) or (b-100=a-5) then writeln ('вес в норме')
Else if (b-100>a+5) then writeln ('Вес выше нормы')
else writeln ('вес ниже нормы');
end.
2. Var a,b:integer;
s:real;
s1:char;
begin
writeln ('введи 1-ое число:');
readln (a);
writeln ('введи операцию +,-,/,*');
readln (s1);
writeln ('введи 2-ое число:');
readln (b);
write (a,s1,b);
if s1='*' then Writeln ('=',a*b) else
if s1='-' then writeln ('=',a-b) else
if s1='+' then writeln ('=',a+b) else
if (s1='/') and (b<>0) then begin
s:=a/b;
if a mod b=0 then writeln ('=',s:1:0)
else writeln ('=',s:5:4);
end
else writeln (' не может быть вычислено');
end.
3. Var x:integer;
y:real;
begin
writeln ('введи х из интервала (-10;15] ');
readln (x);
if (x>-10) and (x<=15) then
begin
if (x>-10) and (x<-4) then y:=sqr(x)
else if (x>=-4) and (x<=7) then y:=1/(2+x)
else y:=sqrt(x);
writeln (y:1:2);
end
else writeln ('х не идентифицирован');
end.
2в степени i=256
i=8
8 бит -вес одного символа.
ответ: 8 бит
Xroot, ваше решение является неверным!
Program abc;
var
n, i: integer;
s: real;
begin
write('Введите n: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('s= ', s);
end.