// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrGen(10,i->2*(i+1)+1); a.Println
end.
1 строка = 2*64 = 128 байт
1 страница = 56 * 128 = 7168 байт
монография = 7168 * 1024 = 7340032 байт = 7168 килобайт = 7 мегабайт
Program D1KPxx9;
uses crt;
const pi=pi;
var
a,b,l,r,sum:real;
begin
readln(a,b);
l:=(a+b)*4;
r:=b/2;
sum:=l;
l:=2*pi*r;
l:=l/2;
sum:=sum+l+2*r;
writeln('пленки надо ',sum:0:2);
<span>end.
вроде работает, вручную не пересчитывал, вводится с клавиатуры числа А и Б, где Б равно длине(обозначенной у тебя Л)-> р=Л/2 или т.к. Б=Л то р=Б/2
все)))</span>
Pascal
const n = 10; //Кол-во студентов
//можно сделать с вводом с клавиатуры
var i,a : integer;
o : array[2..5] of integer;
begin
randomize;
for i :=2 to 5 do
o[i] := 0;
for i := 1 to N do
begin
a := 2 + random(4);
o[a] := o[a] +1;
end;
for i := 2 to 5 do
writeln (i,'=',o[i]);<span>
end.</span>
Программы, по которым работают компьютеры - это драйверы