Var
a: array[1..10, 1..10] of integer;
i, j, k: integer;
begin
k := 1;
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
if(j >= i) then begin
a[i, j] := k;
k += 1;
end
else a[i, j] := 0;
write(a[i, j]:3);
end;
k := 1;
writeln();
end;
<span>end.</span>
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
double e = 2.71828182846;
double x = 0.29;
double y = atan(pow(pow(x * e , x), 3));
cout << y;
return 0;
}
На один ребус тебе. излогает шум но не играет. С проводом но без электричества. Что это?
<span><u>1</u>)function test:real; - <u>ВЕРНО</u>
<u>2</u>)function tan (angle:real):real; - <u>ВЕРНО</u>
3)function sign( a, b:integer); - НЕВЕРНО, не определен тип возвращаемого значения
4)function sign(write: integer): integer - НЕВЕРНО, в конце нет точки с запятой
Программа напечатает:
<u>12</u>
Объяснение:
</span>Процедура Exchange задумана, как обменивающая местами значения своих параметров. Но из-за отсутствия в заголовке var, она не вернет в вызвавшую программу новые значения, поэтому х и у останутся без изменения. Так они и будут выведены.
В магическом квадрате сумма по каждой строке, по каждому столбцу и по обоим диагоналям равна одному и тому же числу, называемому константой магического квадрата. Программе достаточно найти одну любую сумму, принять её в качестве упомянутой константы, а затем обнаружить хотя бы один случай неравенства очередной вычисленной суммы с принятой константой. Если нарушений обнаружено не будет, квадрат является магическим.
const
n2 = 10;
var
a: array[1..n2, 1..n2] of integer;
i, j, n: integer;
k, s: longint;
magic: boolean;
begin
Write('Введите число строк (cтолбцов) в магическом квадрате: ');
Readln(n);
for i := 1 to n do
begin
Write('Введите через пробел элементы строки ', i, ': ');
for j := 1 to n do Read(a[i, j])
end;
s := 0;
for j := 1 to n do s := s + a[1, j];
k := s; i := 2; magic := true;
while magic and (i <= n) do
begin
s := 0;
for j := 1 to n do s := s + a[i, j];
magic := (s = k);
i := i + 1
end;
j := 1;
while magic and (j <= n) do
begin
s := 0;
for i := 1 to n do s := s + a[i, j];
magic := (s = k);
j := j + 1
end;
if magic then begin
s := 0;
for i := 1 to n do s := s + a[i, i];
magic := (s = k);
end;
if magic then begin
s := 0;
for i := 1 to n do s := s + a[i, n - i + 1];
magic := (s = k);
end;
if magic then Writeln('Квадрат является магическим, k=', k)
else Writeln('Квадрат не является магическим')
end.
Тестовое решение:
Введите число строк (cтолбцов) в магическом квадрате: 5
Введите через пробел элементы строки 1: 11 24 7 20 3
Введите через пробел элементы строки 2: 4 12 25 8 16
Введите через пробел элементы строки 3: 17 5 13 21 9
Введите через пробел элементы строки 4: 10 18 1 14 22
Введите через пробел элементы строки 5: 23 6 19 2 15
Квадрат является магическим, k=65
Введите число строк (cтолбцов) в магическом квадрате: 4
Введите через пробел элементы строки 1: 1 1 1 1
Введите через пробел элементы строки 2: 1 1 1 1
Введите через пробел элементы строки 3: 1 1 1 1
Введите через пробел элементы строки 4: 1 1 2 -1
Квадрат не является магическим