Program Program1;
var
a:array [1..10] of integer;
i:integer;
begin
randomize;
Writeln('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
writeln('a[',i,']=',a[i]);
end;
for i:=1 to 10 do
if i mod 2 = 0 then a[i]:=sqr(a[i]);
Writeln('Преобразованный массив: ');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
end.
1.
var x,a:integer; p:real;
begin
a:=3;p:=1;
for x:=1 to 5 do p:=p*a*x*x/sqrt(x+5);
writeln('p=',p);
<span>end.
2.
var x,a:integer; p:real;
begin
a:=3;p:=1;x:=0;
while x<5 do
begin
x:=x+1;
p:=p*a*x*x/sqrt(x+5);
end;
writeln('p=',p);
<span>end.
3.
var x,a:integer; p:real;
begin
a:=3;p:=1;x:=0;
repeat
x:=x+1;
p:=p*a*x*x/sqrt(x+5);
until x=5;
writeln('p=',p);
<span>end.
Результат:
p=20122.311710423
</span></span></span>
Ответ:
1. 5
2. 11
3. 13
Объяснение:
1. (7 + 2) * b + 2 + 2 + 2 = 51
9 * b = 51 - 6
9b = 45
b = 5
2. (46 + 3 + 3 + 3) / b + 3 = 8
55 / b = 5
b = 11
3. (48 + 4) / b + 4 + 4 + 4 = 16
52 / b = 4
b = 13
Console.WriteLine("Введите расстояние до пункта ");
double rast = Convert.ToDouble(Console.ReadLine());
Console.WriteLine("Введите расход в литрах ");
<span>double rashod = Convert.ToDouble(Console.ReadLine());
</span>Console.WriteLine("Введите стоимость бензина ");
<span>double benzin = Convert.ToDouble(Console.ReadLine());
</span>
cena = benzin * rashod * rast;
Console.WriteLine(cena);
либо я чето не понимаю, либо она так должна быть
расход горючего на все 61 км? задача некорректно составлена
но допустим, что она такая какая есть