<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a,d,k):=ReadReal3('Введите a, d, k');
for var i:=0 to Trunc((d-a)/k) do
begin
var x:=a+i*k;
var y:=x**3+4*Abs(x);
Writeln(x:30:15,y:30:15)
end
end.
Uses crt;
const
n=15;
var
a:array[1..n]of real;
i,k:integer;
s:real;
begin
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
writeln;
clrscr;
for i:=1 to n do
begin
write(a[i]:6:2);
if a[i]=s then
inc(k);
end;
writeln;
if k<>0 then
writeln('k: ',k)
else writeln('Нет равных')
end.
<span>Отметьте объекты классной комнаты:
Ответы:
1) </span><span>рабочий стол
2) окно
</span><span>3) компьютер
Объяснение:
Так как
Файла быть не может, и папки то же.</span>
begin
var a := ArrRandom(16, -20, 20); a.Println;
a.Numerate(0).Where(x -> x[1].isEven)
.Select(x -> x[0]).Println;
end.
56*60=3360 сек время скачивания
14*1024*336048168960кб