1)
Program kpa6ya;var x,y,N:integer;BEGINwriteln('x=');readln(x);writeln('y=');readln(y);writeln('N=');readln(N);if (N<1) and (N<2*108) then begin writeln('BBeguTe oT 1 go 2*108 4ucJlo N, a He ',N); readln(N); end;writeln(N/(x+y),' - BpeM9');END.
1 Нарисовать круг
2 Нарисовать круг поменьше
3 Найти центр круга
4 На одинаковом расстоянии от круга слева и справа нарисовать маленькие кружочки
5 Залить всё, кроме маленьких кружочков
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var kp:=a.Where(t->t>0).Count;
var kn:=a.Where(t->t<0).Count;
Writeln('Положительных ',kp,', отрицательных ',kn);
if kp>kn then Writeln('Положитьельныъ больше')
else
if kn>kp then Writeln('Отрицательных больше')
else Writeln('Положительных и отрицательных поровну')
end.
<u>№2</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var (min,max):=(a.Min,a.Max);
Writeln('Минимум ',min,', максимум ',max);
if Abs(min)<Abs(max) then Writeln('Модуль минимума меньше')
else
if Abs(max)<Abs(min) then Writeln('Модуль максимума меньше')
else Writeln('Модули максимума и минимума равны')
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var f:=ArrRandom(9,-50,50); f.Println;
var k:=f.Select(t->t*t).ToArray; k.Println
end.
<u>Пример</u>
39 0 28 31 -35 -2 -11 -48 -32
1521 0 784 961 1225 4 121 2304 1024
Ответ:
всё правильно сделал,
Объяснение:
в таблице все указано верно