<u>Pascal:</u>
var a,b,c:real;
begin
write ('Number 1: ');
readln (a);
write ('Number 2: ');
readln (b);
write ('Number 3: ');
readln (c);
writeln ('Srednee: ',(a+b+c)/3:0:4);
readln;
end.
<u>C++:</u>
<span>#include <iostream></span>
<span>#include <iomanip></span>
<span>using namespace std;</span><span>
int main()</span><span>
{
</span><span>
float a,b,c;</span><span>
cout.setf(std::ios_base::fixed,std::ios_base::floatfield);
</span><span> cout <<"Number 1: ";</span><span>
cin >>a;
</span><span>
cout <<"Number 2: ";</span><span>
cin >>b;
</span><span>cout <<"Number 3: ";</span><span>
cin >>c;
cout.precision(4);
</span><span>
cout <<"Srednee: " <<(a+b+c)/3 <<endl;</span><span>
return 0;</span><span>
}</span>
Ну, если в первом тексте в 2 раза больше символов, то 16*2=32 символа в тексте
256/32=8
В восемь раз больше
INPUT a$FOR i = 1 TO LEN(a$) b$ = MID$(a$, i, 1) IF i = LEN(a$) THEN ELSE h$ = h$ + b$ + "-" END IFNEXT iPRINT h$ + b$
uses crt;
var
x,i:integer;
begin
clrscr;
writeln ('X Sin(x) Cos(x) Tg(x)');
i:=2;
for x:=0 to 45 do begin
write (x:2,' ',sin(x*pi/180):0:4,' ',cos(x*pi/180):0:4,' ');
write (sin(x*pi/180)/cos(x*pi/180):0:4);
writeln;
i:=i+1;
if i=24 then
begin
writeln ('Press Enter');
readkey;
end;
end;
readln;
end.
program n1;
var x,y:real;
begin
writeln('Введите x');
read(x);
if x>=2 then y:=2*x+3 else
y:=(x+1)/(x-2);
writeln('Значение функции равно ',y);
end.
