Ответ:1Перейдите во вкладку «Ссылки».
2Кликните по клавише «Автособираемое оглавление».
3 И выберите из выпадающего списка любой из вариантов (они отличаются лишь форматом ссылок).
Думаю <em>ты поняла что к чему </em>
program znanija;
uses graphabc;
var
x:integer;
begin
SetPenWidth(3);
readln(x);
if x mod 2 = 0 then
begin
SetPenColor(clGreen);
rectangle(130,120,300,300);
end
else
begin
SetPenColor(clRed);
circle(185,200,100);
end;
end.
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var a := ArrRandomInteger(Random(10, 100), 5, 35);
Println(a);
Println('Кол-во запрашиваемых элементов массива = ',a.Count(x -> (x mod 5 = 0) and (x mod 2 = 0)));
end.
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure DimDimoch(x:real; n:integer; var r:real);
begin
r:=n*Sqr(Sqr((x+3*x)))-12*x*n+2*n
end;
begin
var x:real;
var n:integer;
Write('Введите x и n: '); Read(x,n);
var r:real;
DimDimoch(x,n,r);
Writeln('Значение функции ',r)
end.
<u>Пример</u>
Введите x и n: -1.23 4
Значение функции 2410.83920384
begin
Writeln('Введите 6 пар целых чисел');
var k:=0;
loop 6 do begin
var (a,b):=ReadInteger2;
if (a+b).IsEven then k+=1
end;
Writeln('Число пар с четной суммой: ',k)
end.
<u>Пример</u>
Введите 6 пар целых чисел
15 23
19 -7
5 0
4 11
132 63
444 12
Число пар с четной суммой: 3