// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
uses GraphABC; // графическая библиотека
begin
Pen.Color:=clBlue; // выбрать перо синего цвета
Pen.Width:=3; // толщина пера 3 пикселя
DrawCircle(100,120,50); // окружность c центром (100,120) и R=50
Brush.Color:=clPink; // кисть розового цвета
FillCircle(100,120,50) // закрасить окружность
end.
{Я специально запишу в форме программ, чтобы Вам стал более понятен синтаксис. Нужные Вам выражения находятся над процедурами writeln()}
1. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqrt(a+b);
writeln(c);
end.
2. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=(a+b)/(a-b);
writeln(c);
end.
3. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqr(a+b);
writeln(c);
end.
4. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqrt(a)+sqrt(b);
writeln(c);
end.
5. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqrt(sqr(a)+sqr(b));
writeln(c);
end.
11. var f,m,a:integer;
begin;
m:=3;
a:=2;
f:=m*a;
writeln(f);
end.
12. var c,z,b:real;
begin;
z:=2;
b:=1;
c:=z*sqrt(b+3*sqrt(b));
writeln(c);
end.
13. var a,c,k:real;
begin;
a:=1;
k:=2;
c:=sqrt(a)/sqr(k);
writeln(c);
end.
14. var k,f,b,c:real;
begin;
f:=1;
b:=2;
c:=3;
k:=(f+b+c)/3;
writeln(k);
end.
15. var k,a,b,c:real;
begin;
a:=1;
b:=2;
c:=3;
k:=a*(b/c);
writeln(k);
end.
Program n1;
var F: array[1..14] of integer;
i,k: integer;
begin
randomize;
write('массив: ');
for i:=1 to 14 do begin
F[i]:=random(23)-11;
write(F[i],' ');
end;
writeln;
k:=0;
for i:=1 to 14 do if F[i] mod 5=0 then k:=k+1;
write('кол-во эл. крат. 5: ',k);
end.