//PascalABC.NET версия 3.2, сборка 1389 //Если программа не запускается, то обновите версию uses System.Linq; begin begin writeln('I'); var n := ReadInteger('n='); Writeln((1 + 1 + Power(2, n - 1)) * n / 2); end;
begin writeln; writeln('II'); var n := ReadInteger('n='); Writeln(n mod 11 = 0 ? 'YES' : 'NO');
end;
begin writeln; writeln('III'); var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList; writeln;
while a.Any() do begin write(a[0], ' '); a.RemoveAt(0); if not a.Any then break;
write(a.Last, ' '); a.RemoveAt(a.Count - 1); if not a.Any then break;
var n := 0; if a.Count > 1 then n := a.Count div 2 - 1; write(a[n], ' '); a.RemoveAt(n); end; end; end.
Створіть проект, у якому вводяться значення елементів табличної величини із 7 цілих чисел у багаторядковому текстовому полі, обчислюється сума від’ємних з них і результат виводиться в напис. Збережіть проект у папці з іменем Завдання 6.2.1, створеній у вашій папці.
procedure TForm1.Button1Click (Sender: TObject);
var a: array [1..8] of integer;
i, s: integer;
begin
for i: = 1 to 7 do a[i]:= StrToInt(Memo1.Lines[i - 1]);
s:= 0;
for i:= 1 to 7 do if a[i] < 0 then s:= s + a[i];
Label1. Caption: = IntToStr(s);
end;
2. Створіть проект, у якому вводяться значення елементів табличної величини з 8 дійсних чисел у багаторядковому текстовому полі, визначається кількість з них, які більші за 5, і результат виводиться в напис. Збережіть проект у папці з іменем Завдання 6.2.2, створеній у вашій папці.
procedure TForm1.Button1Click (Sender: TObject);
var a: array [1..8] of real;
i, k: integer;
begin
for i:= 1 to 8 do a[i]:= StrToFloat(Memo1.Lines[i - 1]);
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
begin
writeln('I');
var n := ReadInteger('n=');
Writeln((1 + 1 + Power(2, n - 1)) * n / 2);
end;
begin
writeln;
writeln('II');
var n := ReadInteger('n=');
Writeln(n mod 11 = 0 ? 'YES' : 'NO');
end;
begin
writeln;
writeln('III');
var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
writeln;
while a.Any() do
begin
write(a[0], ' ');
a.RemoveAt(0);
if not a.Any then break;
write(a.Last, ' ');
a.RemoveAt(a.Count - 1);
if not a.Any then break;
var n := 0;
if a.Count > 1 then n := a.Count div 2 - 1;
write(a[n], ' ');
a.RemoveAt(n);
end;
end;
end.
Створіть проект, у якому вводяться значення елементів табличної величини із 7 цілих чисел у багаторядковому текстовому полі, обчислюється сума від’ємних з них і результат виводиться в напис. Збережіть проект у папці з іменем Завдання 6.2.1, створеній у вашій папці.
procedure TForm1.Button1Click (Sender: TObject);
var a: array [1..8] of integer;
i, s: integer;
begin
for i: = 1 to 7 do a[i]:= StrToInt(Memo1.Lines[i - 1]);
s:= 0;
for i:= 1 to 7 do if a[i] < 0 then s:= s + a[i];
Label1. Caption: = IntToStr(s);
end;
2. Створіть проект, у якому вводяться значення елементів табличної величини з 8 дійсних чисел у багаторядковому текстовому полі, визначається кількість з них, які більші за 5, і результат виводиться в напис. Збережіть проект у папці з іменем Завдання 6.2.2, створеній у вашій папці.
procedure TForm1.Button1Click (Sender: TObject);
var a: array [1..8] of real;
i, k: integer;
begin
for i:= 1 to 8 do a[i]:= StrToFloat(Memo1.Lines[i - 1]);
k:= 0;
for i:= 1 to 8 do
if a[i] > 5 then k:= k + 1;
Label 1.Caption:= IntToStr(k);
end;