В конце readln не требуется, тк считывать нечего.
И чтоб не было некрасивого числа в конце допиши "writeln('площ. треуг.s=',s:3:2 );
Пусть х находится в ячейке А1, тогда формула должна иметь вид:
=2*(COS(2*ПИ()*A1))^2-3*SIN(3*ПИ()*A1)
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=MatrRandom(5,5,-99,99); mas.Println;
var b:=mas.ElementsByCol.Where(t->(t>5) and (t mod 3 =0));
var c:=b.Aggregate(biginteger(1),(x,y)->x*y);
Writeln('Произведение =',c)
end.
Как в школе учат :
const n=5; m=5;
var
a,b,c,i,j:integer;
mas:Array [1..n,1..m] of integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
mas[i,j]:=random(100);
c:=1;
for i:=1 to n do
for j:=1 to m do
if (mas[i,j]>5) and (mas[i,j] mod 3 =0 ) then
c:=c*mas[i,j];
Writeln('Произведение =',c);
end.
1) 5 => 8 => 16 => 19 => ответ 38
2)2 => 7 => 6 => 11=> 10 => 15 => 14 => ответ 42
3) 1=> 3 => 2 => 6=> 5 => 15 => ответ 14
4) 1=> 6 => 5 => 10 => 9 => 14 => 13 =>18 => ответ 17
Знаю несколько операторов условия в Java, это - "if" и "?".
Примеры:
if (a + b < 4) { result = 'Мало'; }
тот же пример, только через "?":
result = (a + b < 4) ? 'Мало';
Надеюсь помог, удачи :)