Var
a1,a2:integer;
begin
writeln('Введите а1');
read(a1);
writeln('Введите а2');
read(a2);
a1:=sqr(a1);
a2:=sqr(a2);
if a1>a2 then
writeln('Площадь а1 больше')
else
writeln('Площадь а2 больше');
end.
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
// Программа №1
begin
var mas:=ArrRandom(20,-99,99); mas.Println;
Writeln('сумму с четным индексом=',mas.Where((v,i)->i mod 2 =0).Sum);
end.
// Программа №2
begin
var n:=readinteger('n=');
var mas:=ArrRandom(n,-99,99); mas.Println;
Writeln('элементы < 5');
mas.Where(t->t<5).Println;
end.
//Программа №3
begin
var n:=readinteger('n=');
var mas:=ArrRandom(n,-99,99); mas.Println;
Write('Сумма=');
mas.Where(t->t mod 10 = 3).Sum.Println;
end.
А) 72 Кб × 1024 73,728 Байт
б) 340 Мб × 1024 × 1024 = 356,515, 840 Байт
с) 7 Гб × 1024 × 1024 × 1024 = 7,516,192,768 Байт
Var y,x:integer;
begin
for x:= -4 to 4 do begin
y:=sqr(x)+2;
writeln ('y=',y);
end;
end.
Var i,j,s,n:integer;
begin
readln(n);
for i := 1 to n-1 do
begin
s:=0;
for j := 1 to (i div 2) do
if i mod j=0 then s:=s+j;
if s=i then write(i,' ');
end;
end.