Дан двумерный массив. Прибавить к каждому элементу число 3 и посчитать сумму элементов матрицы , находящихся в нечётных столбцах

Знания

Информатика

1 ответ:

Алексей333333 года назад

0 0

Решение в приложении ниже

для изменения количества столбцов и строк в массиве - изменяйте значения констант в начале программы
str (string) - строка
col (column) - столбец

Читайте также

Составьте программу вычисления выражения (разными способами, применяя каждый из операторов while,repeat,for) a^p, где p - целое

Ленчик Михайловна [1.6K]

1)Это с помощью while

var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
while i<p do
begin
    c:=c * a;
    inc(i);
end;
writeln(c);
readln;
end.

2) Это с помощью repeat

var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
repeat
    c:=c * a;
    inc(i);
until i=p;
writeln(c);
readln;
end.

3) Это с помощью for

var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1;
for i:=1 to p do
    c:=c * a;
writeln(c);
readln;
end.

0 0

4 года назад

Здравствуйте,помогите разработать программу для вычисления арифметического выражения и вывода полученного результата. Исходные д

SplinterDrag

===== PascalABC.NET =====

begin

var (x, y, z) := ReadReal3('x, y, z =');

var e := (Cos(x) - Sin(y)) ** 3 / Sqrt(Tan(x)) + Sqr(Ln(x * y * z));

Println(e)

end.

0 0

4 года назад