14; 13; 18; 19.
Вот и всё!
//PascalABC.NET v3.3 1633
var arr: array [1..6, 1..6] of integer;
begin
for var i:=1 to 6 do
for var j:=1 to 6 do
arr[i, j]:=random(-49, 50);
writeln('Исходный массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
var num:=0;
for var i:=1 to 6 do
if arr[i, 2] < 0 then num += 1;
writeln('Количество отрицательных элементов второго столбца: '+num);
for var i:=1 to 6 do
for var j:=1 to 6 do
if arr[i, j] > 0 then arr[i, j]:=-49;
writeln('Новый массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
end.
Не знаю как с помощью таблицы,но у меня получился ответ ДХБА
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 км? задача некорректно составлена
но допустим, что она такая какая есть
Первый способ:
Var n:longint;
Begin
Write('n = ');ReadLn(n);
n:=n*n;
if frac(Ln(n)/Ln(10)) > 0 then WriteLn(int(Ln(n)/Ln(10))+1)
else WriteLn(Ln(n)/Ln(10))
End.
Второй способ:
Var
n,k:longint;
Begin
Write('n = ');ReadLn(n);
k:=0;
n:=n*n;
While n > 0 do
Begin
k:=k+1;
n:=n div 10
End;
WriteLn(k);
End.