Uses GraphABC;
var s:string;
begin
writeln('Введите название фигуры (круг или треугольник):');
readln(s);
setwindowsize (640,480);
setwindowtitle (s);
setpencolor (clBlue);
setpenwidth (4);
if s='круг' then
circle(300,200,120)
else begin
Line(300,50,30,400);
Line(30,400,570,400);
Line(570,400,300,50);
end;
end.
Ответ:
Мы живем в мире, где массовая и целенаправленная слежка, нападения на людей и гражданское общество, притеснения членов уязвимых групп в цифровой среде и широкий спектр различных мнений и их выражение приводят к серьезным последствиям, в том числе к помещению людей под стражу, физическим нападениям и даже убийствам.
Const
n = 2016;
var
a: array[1..n] of integer;
i, m, k: integer;
begin
randomize;
m := 1;
for i := 1 to n do
begin
a[i] := random(1000);
m := m * a[i] mod 2;
// write(a[i], ' ');
end;
k := -1;
for i := 1 to n do
if (a[i] mod 2 = m) and (a[i] > k) then
k := a[i];
writeln(k);
end.
ответ примерно будет одинаковым, так как очень много цифр в массиве