Program n1;
const n=20;
var y: real;
n: integer;
begin
y:=0;
for i:=1 to n do y:=y+1/n;
writeln(y);
end.
телефон зонт спица стержень купол диск рукоядка
наушник
корпус
провод
микрофон
//Pascal ABC.NET 3.1 сборка 1256
Var
m,n,i,j:integer;
begin
readln(m,n);
for i:=m to n do
begin
write(i,':');
for j:=2 to i div 2 do
if i mod j=0 then write(j:4);
writeln;
end;
end.
Пример ввода:
12
16
Пример вывода:
12: 2 3 4 6
13:
14: 2 7
15: 3 5
16: 2 4 8
Uses graphabc;
begin
window.Init(0, 0, 800, 600, clwhite);
window.IsFixedSize := true;
var r:=ReadInteger('R=');
var h:=ReadInteger('h=');
pen.Width := 4;
DrawEllipse(100, 100, 100 + r, 100 + r - (r div 2));
line(100, (100 + r - (r div 2) + 100) div 2, 100, ((100 + r - (r div 2) + 100 + h + h) div 2));
line(100 + r, (100 + r - (r div 2) + 100) div 2, 100 + r, ((100 + r - (r div 2) + 100 + h + h) div 2));
DrawEllipse(100, 100 + h, 100 + r, 100 + r - (r div 2) + h);
end.