4 * 48 * 64 * 8 бит = 4 * 48 * 64 байт = 12 кбайт
1(a)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
writeln(c);
readln;
d:=a-b;
writeln(d);
readln;
end.
b)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
d:=a-b;
writeln(c,d);
readln;
end.
c)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа'); //здесь вводим два числа
readln(a,b);
c:=a+b;
d:=a-b;
writeln(c,d);
readln;
end.
2.
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите три числа');
readln(a,b,c);
d:=a*b*c;
writeln(d);
readln;
end.
3.
Program Treugol;
var a,b,c,d:real;
begin
writeln('введите два числа');
readln(a,b);
c:=2*(a+b);
d:=a*b;
writeln(c,d);
readln;
end.
4.
Program Goda;
var R:real;
begin
write('введите R');
readln(R);
<span><span>d:=R*356;
</span><span>c:=d*24;
</span><span>m:=c*60;
</span><span>s:=m*60;
</span></span>writeln(d);
writeln(c);
writeln(m);
writeln(s);
readln;
end.
Надеюсь на лучший ответ и на спасибо:)
Ответ: 16 по основанию 8 --> 1*8^1+6 = 14 по основанию 10
35 по основанию 8 --> 3*8+5=29 по основанию 10
57 по основанию 8 --> 47 по основанию 10
103 по основанию 8 --> 1*8^2 + 0+ 3= 67 по основанию 10
177 по основанию 8 --> 64 + 56 + 7 = 127 по основанию 10
234 по основанию 8 --> 156 по основанию 10
3. 100011101 + 1001110 = 101101011
111000+110011 = 1101011
4. 11100111 - 11011 = 11000100
1)
<span>var </span>
<span>A:integer; </span>
<span>Begin </span>
<span>Readln(a); </span>
<span>If a<>0 then </span>
<span>If a<0 then writeln('a<0') else writeln('a>0') </span>
<span>Else writeln('a=0'); </span>
<span>End. </span>
2)
<span>Var </span>
<span>A,M,n:integer; </span>
<span>Begin
</span>readln(m);
readln(n);
<span>If m=n then writeln ('error') else </span>
<span>If m>n then a:=n else a:=m; </span>
<span>If (-20<=a) and (a<10) then writeln('Yes') else </span>
<span>Writeln('No');</span>
<span>End.</span>