Program Pr1;
uses crt;
var i,n,p:integer;
Begin
clrscr;
readln(n);
for i:=1 to n do writeln(sqr(i));
end.
Язык C:
m=0; //кол-во отриц. элементов
proizv=1; //произвед отриц элементов
for(i=0; i<9; i++)
{
if (b[i]<0)
{ m++;
proizv=proizv*b[i];
}
}
1. Хвойные / Лиственные.
2. Сорри, но я не знаю пока что.
3. Дикие / Домашные
Program w;
var a,b,c,s:real;
begin
writeln('Введите a,b');
readln(a,b);
c:=sqrt(sqr(a)+sqr(b));
s:=(a*b)/2;
writeln('Гипотенуза:');
writeln(c:4:2);
writeln('Площадь:');
writeln(s:4:2);
end. <span>
</span>