<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('Введите положительное число:');
if x<=0 then Writeln('Нужно было ввести положительное число')
else
for var a:=1 to 3 do
Writeln('a=',a,', y=',Power(x,Cos(x)+2/3*Power(x,4)*(a+1/Sqr(a))))
end.
<u>Пример</u>
Введите положительное число: 3.14
a=1, y=8.18301847799916E+63
a=2, y=9.20754501073329E+71
a=3, y=4.96774611959821E+99
Var
i: integer;
begin
for i:=1 to 10 do
writeln(i, ' Кбайт = ', i*1024, ' байт');
<span>end.
</span><span>Бейсик
</span>DIM I AS INTEGER;
FOR I:=1 TO 10
PRINT I*1024
NEXT I
Procedure Number(number:integer);
var len,i :integer;
str :string ;
begin
str := intToStr(number);
len := length(str);
for i:= 1 to len do
writeln(str[i]);
<span> end;</span>
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(10);
var s:=a.Where(t->t>0); // последовательность положительных
Writeln('Положительных: ',s.Count);
Writeln('Максимальный: ',a.Max);
Writeln('Сумма положительных: ',s.Sum);
Writeln('Ср.арифм. положительных: ',s.Average);
a.Transform(t->t.IsEven?2*t:t+1); a.Println
end.
<u>Пример</u>
-6 28 31 83 -25 -17 8 0 11 13
Положительных: 6
Максимальный: 83
Сумма положительных: 174
Ср.арифм. положительных: 29
-12 56 32 84 -24 -16 16 0 12 14