1) var n,i,p:longint;a:array[1..100]of longint; begin read(n);p:=1; for i:=1 to n do read(a[i]); for i:=1 to n do if a[i] mod 3=0 then p:=p*a[i]; writeln(p); end. 2) var n,i,s,p:longint;a:array[1..100]of longint; begin read(n); p:=1;s:=0; for i:=1 to n do read(a[i]); for i:=1 to n do if a[i]>0 then s:=s+a[i]; for i:=1 to n do if a[i]<0 then p:=p*a[i]; if p>s then writeln('proizvedenie') else if p<s then writeln('summa') else writeln('ravni'); end. 3) var n,f,i,o:longint;a:array[1..100]of longint; begin read(n);f:=0; for i:=1 to n do read(a[i]); for i:=n downto 1 do begin if a[i]<0 then f:=f+1; if f=2 then begin o:=a[i];break;end; end; writeln(o); end.
Укажу часть решения (на все, увы, нет времени, работать надо - и как бы вы меня не уговаривали, все же сделаю это на паскале, но если нужно будет - исправлю под плюсы):
1) Чтобы проверить, является ли треугольник равносторонним, нужно узнать, равны ли все его стороны: if (a = b) and (b = c) then writeln('TRUE') else writeln('FALSE');
2) У равнобедренного треугольника должны быть равны две стороны: if (a =b) or (b = c) or (a = c) then writeln('TRUE') else writeln('FALSE');
3) Для существования треугольника сумма любых его двух сторон должна быть больше третьей: if (a + b > c) and (a + c > b) and (b + c > a) then writeln('TRUE') else writeln('FALSE');
4) Тут всё просто, первая четверть это неотрицательные значения для осей абсцисс и ординат: if (a >= 0) and (b >= 0) then writeln('TRUE') else writeln('FALSE');
С последним разберешься сам, там тоже несложно. В единую программу, надеюсь, сможет восьмиклассник собрать части кода?
var n,i,p:longint;a:array[1..100]of longint;
begin
read(n);p:=1;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i] mod 3=0 then p:=p*a[i];
writeln(p);
end.
2)
var n,i,s,p:longint;a:array[1..100]of longint;
begin
read(n);
p:=1;s:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
for i:=1 to n do
if a[i]<0 then p:=p*a[i];
if p>s then writeln('proizvedenie')
else if p<s then writeln('summa')
else writeln('ravni');
end.
3)
var n,f,i,o:longint;a:array[1..100]of longint;
begin
read(n);f:=0;
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do begin
if a[i]<0 then f:=f+1;
if f=2 then begin o:=a[i];break;end;
end;
writeln(o);
end.
1) Чтобы проверить, является ли треугольник равносторонним, нужно узнать, равны ли все его стороны:
if (a = b) and (b = c) then
writeln('TRUE')
else
writeln('FALSE');
2) У равнобедренного треугольника должны быть равны две стороны:
if (a =b) or (b = c) or (a = c) then
writeln('TRUE')
else
writeln('FALSE');
3) Для существования треугольника сумма любых его двух сторон должна быть больше третьей:
if (a + b > c) and (a + c > b) and (b + c > a) then
writeln('TRUE')
else
writeln('FALSE');
4) Тут всё просто, первая четверть это неотрицательные значения для осей абсцисс и ординат:
if (a >= 0) and (b >= 0) then
writeln('TRUE')
else
writeln('FALSE');
С последним разберешься сам, там тоже несложно. В единую программу, надеюсь, сможет восьмиклассник собрать части кода?