Дан фрагмент электронной таблицы. Из ячейки C2 в ячейку D4 была скопирована формула. При копировании адреса ячеек в формуле автоматически изменились. Каким стало числовое значение формулы в ячейке D4?
//Pascal ABC.Net Var b:array[1..60] of longint;i:longint;pr:int64; Begin pr:=1; for i:=1 to 60 do begin b[i]:=random(99)+1; if (b[i] mod 7=0) then pr*=b[i]; end; writeln('Получившийся массив:'); for i:=1 to 60 do write(b[i],' '); writeln; writeln('Произведение чисел кратных 7 равно ',pr); End.
//Если не пашет (ошибка компиляции): //1) В строке if (b[i] mod 7=0) then pr*=b[i]; замени pr*=b[i]; на pr:=pr*b[i]; //2) Если всё равно ошибка компиляции, попробуй int64 заменить на longint //3) Если всё равно ошибка компиляции, longint переименуй в integer.
using namespace std;
int main() {
int a, b, c, n, i;
cout << "n = ";
cin >> n;
if (n < 3) {
cout << "Не может быть менее 3 прямых!" << endl;
return 2;
}
int aa[n], bb[n], cc[n];
cout << "Ввод в формате 'a b c'" << endl;
for (i = 0; i < n; i++) {
cout << "прямая " << i << ": ";
cin >> a >> b >> c;
if ((a == 0) && (b == 0)) {
cout << "Оба коэффициента равны 0, повторите ввод." << endl;
i--;
}
else {
aa[i] = a;
bb[i] = b;
cc[i] = c;
}
}
for (i = 0; i < n; i++) {
a = aa[i];
b = bb[i];
c = cc[i];
for (int j = 0; j < n; j++) {
if (j == i) continue;
if (aa[i] / aa[j] == bb[i] / bb[j]) {
for (int k = 0; k < n; k++) {
if ((k == i) || (k == j)) continue;
if (aa[i] / aa[k] == bb[i] / bb[k])
cout << "прямые " << i << ", " << j << " и " << k << " пересекаются." << endl;
return 0;
}
}
}
}
cout << "Среди данных прямых нет трёх пересекающихся." << endl;
return 1;
}
Var b:array[1..60] of longint;i:longint;pr:int64;
Begin
pr:=1;
for i:=1 to 60 do
begin
b[i]:=random(99)+1;
if (b[i] mod 7=0) then pr*=b[i];
end;
writeln('Получившийся массив:');
for i:=1 to 60 do
write(b[i],' ');
writeln;
writeln('Произведение чисел кратных 7 равно ',pr);
End.
//Если не пашет (ошибка компиляции):
//1) В строке if (b[i] mod 7=0) then pr*=b[i]; замени pr*=b[i]; на pr:=pr*b[i];
//2) Если всё равно ошибка компиляции, попробуй int64 заменить на longint
//3) Если всё равно ошибка компиляции, longint переименуй в integer.