Воть, всё по логике *:
Удачи:)
<em>P.S. Первые 3 условия по-видимому можно исключить, но я не стал рисковать: в этом мире и так чудес мало, а программа работает</em>
Ботаника- Это раздел науки Растениях;Земледельцы-это люди которые занимаются работой связанной с землёй.Животноводы-Это люди которые выращивают домашний скот.НУ как то так
Uses crt;
var x,y:integer;
begin
write('x='); readln(x);
y:=sqr(1-sqr(x)+5*sqr(sqr(x)));
writeln('y=',y);
<span>end.</span>
Program Task;
Var i, N: Integer;
Begin
Write('N = ');
ReadLn(N);
For i := 1 To N Do
Write(i, ' ');
ReadLn;
<span>End.</span>
1.
7, 6, 5, 4, 3, 2, 1, 0, -1, -2, -3, -4, -5, -6, -7
2.
алг Квадраты
нач
цел N, квадратN
нц для N от 10 до 99
квадратN:= N*N
вывод квадратN, нс
кц
кон