<span>a:=g m2-m1/m2+m1</span>Если в Паскале, а в visual basic без <u>:</u><span>
</span>
я просто напишу то что должно быть в пропусках с лево на право
1) 3072 , 3
2) 16 384, 2
3) 12288. 1536
4)2 в 10, 1 (или 2 в 0)
5) 2 в 14, 2 в 1 = 2
6)не очень понятно)))) там умножить или степень в степень))) буту считать что умножить,, тогда 2 в 17, 2 в 14
а если степень в степнь то 2 в 21, 2 в 18
Просто перезагрузи комп, или ноут.Если не уйдёт то нужно переустановить виндоус, и сбросить всё к заводчикм настройкам
1)
program gt;
var a,b:real;
begin
read(b);
a:=b*24;
writeln(a);
end;
2)program gt;
var s,a,b,t:real;
begin
read(s,a,b);
t:=(s-1.5*a)/b+1.5;
writeln(s);
3)program gt;
var a,b:real;
begin
read(b);
a:=b*10/18;
writeln(a);
end.
4)program gt;
var a,b:real;
begin
read(a);
b:=a/22*34;
writeln(b);
end.
5)
program gt;
var n,a,b,c:real;
begin
read(n);
a:=55*n;
b:=1/4*n;
c:=7.5*n;
writeln(a,' ',b,' ',c);
end.
program massiv;
var
a,b,i,n,d,e,s:integer;
m:array[1..n] of integer;
begin
readln(n);
for i:=1 to n do
readln(m[i]);
a:=1;
b:=0;
for i:=1 to n do
begin
if m[i]<0 then a:=a*m[i];
if (m[i] mod 3 = 0) then b:=b+1;
end;
writeln(a,' ',b);
end.