Еще прикреплен с паскалевским файлом
var n:integer;
begin
writeln('vvedi chislo');
readln(n);
if n mod 2=0 then writeln ('chetnoe') else writeln ('ne chetnoe');
readln;
<span>end.</span>
===== PascalABC.NET =====
1)
begin
var a := ArrRandom(10, -80, 79);
a.Println;
var (j, k) := (-1, 0);
for var i := 0 to a.High do
if a[i].IsEven then
begin
k += 1;
if k = 5 then
begin
j := i;
break
end
end;
if j = -1 then
Println('Нет достаточного числа четных элементов')
else
begin
a[j] := Sqr(a[j]);
a.Println
end
end.
2)
begin
var a := ArrRandom(10, -80, 79);
a.Println;
var imax := a.IndexMax;
a[imax] -= 100;
Swap(a[imax], a[a.High]);
a.Println
end.
const
p = 3.14;
var
L, S:real;
begin
write('L = '); readln(L);
writeln('S = ', sqr (L / (2 * p)) * pi);
end.
X I X-19 век X V I I I-18 век