<em>// PascalABC.NET 3.2</em>
begin
var a,b,c:real;
Write('Введите длины сторон треугольника: '); Read(a,b,c);
Writeln('P=',a+b+c)
end.
PascalABC.NET:
begin
var a:=ArrRandom(50,-500,500);
a.Println;
var k:=a.Where(x->(abs(x) mod 10 = 3)).Count;
var s:=a.Where(x->(abs(x) mod 10 = 3)).Sum;
if k=0 then writeln('В массиве нет элементов, оканчивающихся цифрой 3')
else Writeln('Среднее арифметическое элементов массива, оканчивающихся цифрой 3 = ',s/k);
end.
Пример (для 10 элементов):
450 -159 189 463 262 220 -125 -41 -178 -62
Среднее арифметическое элементов массива, оканчивающихся цифрой 3 = 463
<span>Отметьте объекты классной комнаты:
Ответы:
1) </span><span>рабочий стол
2) окно
</span><span>3) компьютер
Объяснение:
Так как
Файла быть не может, и папки то же.</span>
1 байт =8 бит
1 Килобайт - 1024 байта
1 Мега байт -1024 Килобайта
1 Гигабайт - 1024 Мегабайта
1 Терабайт - 1024 Гигабайта
1 Пета байт = 1024 Терабайта
1 Этабайт - 1024 Петабайта
<span> - так если мне память не изменяет
:)</span>
Var
a:array[1..1000] of extended;
i,n:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
writeln;
for i:=1 to n do writeln(a[i]:0:3);
end.
<span>
</span>