задания excel 9 класс. информатика ответы с других сайтов не беру, мне четко нужен ответ, и решение в excel
4.3 Задания для самостоятельного выполнения 1. В задаче 1, используя подбор параметра, выяснить, какого размера должны быть дополнительные платежи, чтобы накопить желаемую сумму. 2. Банковский вклад размером в 100000 тысяч рублей через 3 года возрастет до 190000. Под какой процент необходимо вложить данные средства, если начисления процентов производятся ежемесячно. Дополнительных платежей или изъятий не производится.
Var mas:array[1..1000, 1..1000] of integer; N,i,j,sum:integer;
Begin Writeln('Введите размер матрицы N*N'); Write('N = ');readln(N); if (N>1000) or (N<1) then Writeln('Ошибка, указанные значения выходят за пределы матрицы') else Begin Writeln('Введите элементы матрицы'); sum:=0; for i:=1 to N do for j:=1 to N do Begin readln(mas[i,j]); if (mas[i,j] mod 2 <> 0) then sum:=sum+mas[i,j]; end;
Writeln(); Writeln('Исходная матрица'); for i:=1 to N do Begin for j:=1 to N do Begin Write(mas[i,j], ' '); end; Writeln(); end;
Writeln(); Writeln('Сумма нечетных элементов = ',sum);
uses crt;
Var mas:array[1..1000, 1..1000] of integer;
N,i,j,sum:integer;
Begin
Writeln('Введите размер матрицы N*N');
Write('N = ');readln(N);
if (N>1000) or (N<1) then
Writeln('Ошибка, указанные значения выходят за пределы матрицы') else
Begin
Writeln('Введите элементы матрицы');
sum:=0;
for i:=1 to N do
for j:=1 to N do
Begin
readln(mas[i,j]);
if (mas[i,j] mod 2 <> 0)
then sum:=sum+mas[i,j];
end;
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to N do
Begin
Write(mas[i,j], ' ');
end;
Writeln();
end;
Writeln();
Writeln('Сумма нечетных элементов = ',sum);
end;
readln;
end.