Нда,просто изи.........................
Program algorithm;
Var i, S: integer;
Begin
S:=1;
For i:=1 to 100 do
Begin
S := S*i;
End;
Writeln(S);
End.
Меньше 4-х тут ничего нету. Обращаем первое: x >= 7. Т. е. это 7 и 8.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var v:=MatrRandom(7,7,-15,15);
v.Println(4); Writeln(4*v.ColCount*'-');
var pr3:=v.Row(2).Aggregate(1,(x,y)->x*y);
Writeln('Произведение элементов 3-й строки равно ',pr3);
Writeln('Количество элементов, больших этого произведения, равно ',
v.ElementsByRow.Where(t->t>pr3).Count);
Writeln('Максимум в 3-м столбце равен ',v.Col(2).Max)
end.
<u>Пример</u>
*** Исходный массив ***
-4 -12 -15 -2 13 3 -15
-7 -1 -15 2 -2 4 -6
14 5 5 15 -4 3 0
13 15 9 14 11 -9 11
1 14 14 1 -4 -1 -7
15 -10 -13 -3 -8 -12 11
0 -13 -8 4 6 1 -11
----------------------------
Произведение элементов 3-й строки равно 0
Количество элементов, больших этого произведения, равно 24
Максимум в 3-м столбце равен 14
//1)
#include
using namespace std;
int main() {
int x;
int a=15;
int Y=x*x+a*x;
cin>> x;
cout< return 0;
}
//2)
#include
using namespace std;
int main() {
int x;
int a=5;
int b=1;
int Y=x*x*x-a*x+b;
cin>> x;
cout< return 0;
}
//3)
#include
using namespace std;
int main() {
double x;
int a=3;
int b=1;
double Y = x*x*x-a*x-b;
cin>> x;
if(Y>0 && Y <= 25){
cout<
return 0;
}
