Разработка искуственного интелекта зашла в тупик, в основном идут попытки имитации работы мозга на основе неиронных сетей
Ответ: если не ошибаюсь, 42
Объяснение:
У тебя дан цикл вайл с условием пока s не включая 75 делать.
То есть когда значение s будет 70, цикл завершается. Можем посчитать, что когда s будет 10, n станет 6. Получается нам нужно 7*6 = 42.
Но я не гарантирую сто процентов правильно, я не прогал на паскале много лет) Вот был бы c++ или какой-либо другой язык - было бы поинтереснее)
Для проверки можешь в онлайн компилятор вогнать прогу, тебе выдаст ответ. Но логику я пытался объяснить, она не сложная
Program Pr1; Uses Crt;
var a,b,c: integer; y: real;
begin clrscr;
Writeln('введите a,b,c');
Readln(a,b,c);
y=b+sqrt(b*b+4*a*c)/(2*a)-a*a*a*c+b*b-2;
Writeln('Y=', y:5:2);
Readln;
End.
Var
A: integer;
begin
readLn(A);
if (A mod 2 = 0) then
begin
A := sqr(A);
WriteLn('Квадрат введённого числа равен: ', A);
end else
begin
A := ((A mod 100) div 10) + (A mod 10) + (A div 100);
writeLn('Сумма цифр введённого числа равна: ', A);
end;
end.
Const n=4;
var
a:array[1..n,1..n] of integer;
i,j,b:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n div 2 do
for j:=i to n-i do
begin
b:=a[i,j];
a[i,j]:=a[n-j+1,i];
a[n-j+1,i]:=a[n-i+1,n-j+1];
a[n-i+1,n-j+1]:=a[j,n-i+1];
a[j,n-i+1]:=b;
end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
57 32 69 17
87 33 85 22
89 80 59 13
60 93 96 56
Полученный массив:
60 89 87 57
93 80 33 32
96 59 85 69
56 13 22 17