uses crt; var a: array [1..20, 1..20] of real; i, j, k, n, s: integer; begin clrscr; write('Введите размер матрицы: '); read(n); for i := 1 to n do for j := 1 to n do begin write('A[', i, ',', j, ']= '); readln(a[i, j]); end; WRITELN; WRITELN; writeln('Исходная матрица ', n, 'x', n, ': '); for i := 1 to n do begin for j := 1 to n do WRITE(a[i, j]:2:0, ' '); WRITELN; end; k := 0; for i := 1 to n do begin for j := 1 to n do begin if a[i, j] = 0 then begin k := k + 1; s := s + 1; end; end; if k = n then writeln(i, ' строка состоит из нулей! '); k := 0; end; if s = 0 then writeln('В матрице нет нулевых строк'); end.
Задача 1:
#include <iostream>
int main()
{
double x, y;
std::cin >> x;
if (x >= 2) y = sqrt(3 * x + 4);
else y = x * x * x * x * x - abs(4 * x);
std::cout << y;
return 0;
}
Задача 2:
#include <iostream>
int main()
{
double x, y;
std::cin >> x;
y = (x*x*(2*x+8))/(3+2*x);
std::cout << y;
return 0;
}
Задача 3:
#include <iostream>
int main()
{
double z,b;
std::cin >> b;
if (b > 7) z = b * b * b;
else z = b - 9;
std::cout << z;
return 0;
}