program z_array; uses crt; var a: array[1..100,1..100] of integer; m,n,i,j: byte; sum: integer; begin clrscr; writeln('введите количество строк матрицы'); readln(n); writeln('введите количество столбцов матрицы'); readln(m); writeln('введите элементы матрицы'); for i : = 1 to n dofor j : = 1 to m dobegin write('a[',i,',',j,'] = '); readln(a[i,j]); end; writeln('данная матрица'); writeln; sum : = 0; for i : = 1 to n dobeginfor j : = 1 to m dobegin write(a[i,j]: 5); if (j < i) then sum : = sum + a[i,j]; end; writeln; writeln('искомая сумма = ',sum); readln; end.
Спасибо
Ответ дал: Гость
Дано: a=10 см b=10 см k_1=1200×1200 dpi i=24 bit i - ? решение: i=k*i 1 дюйм = 2,54 см a=b=10 см=10/2,54=3,94 дюйм k=k_1ab=1200×1200 dpi*3,94 дюйм*3,94 дюйм=22353984 i=22353984*24 бит=536495616 бит ≈ 64 мбайт ответ: i≈64 мбайт
Ответ дал: Гость
program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.
Популярные вопросы