Var k,x,a:integer;
Begin
x:=100;
k:=0;
repeat
a:=x div 10;
if (x mod a)=0 then
begin
writeln(x);
k:=k+1;
end;
x:=x+1;
until k=70;
End.
Это б)
uses crt;
var S,b,h:real;
begin
writeln('Введите b,h':);
readln(b,h);
S:=1/2*b*h;
writeln('S=',S);
readln;
end.
а)
uses crt;
var a,b,c,P:integer;
begin
writeln('Введите a,b,c':);
readln(a,b,c);
P:=a+b+c;
writeln('P=',P);
readln;
end.
в)
uses crt;
var a,b,c,S,R1,R:real;
begin
writeln('Введите a,b,c,S':);
readln(a,b,c,S);
R1:=a*b*c;
R:=R1/4*s;
writeln('R-',R);
readln;
end.
1 бит = 1 символу
1 байт = 8 бит
1килобайт = 1024 байта
3,5 * 1024= 3584 байта
3584 * 8 = 28672 бит
ответ в тексте 28672 симв
Исходя из текста условия можно предложить что имеется ввиду преобразование текста из одной кодировки в другую. Если предположение верно, то задача описывается следующим уравнением:
16*n - 800 = 8*n
n=100
где n - число символов
1/8 кб = 1024 бита
1024 / 256 = 4 бита весит 1 символ
2^4 = 16 символов