<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := Arr(3.5, 4.2, 5.7, 6.3, 4.5, 7.1, 3.3);
Writeln('a) ', a.Sum);
Writeln('б) ', a.Where(t -> t > 5).Sum);
Writeln('в) ', a.Max);
Writeln('г) ', a.Where(t -> t < 5).Count);
Writeln('д) ', a.IndexMin + 1)
end.
<h3>a) 34.6</h3><h3>б) 19.1</h3><h3>в) 7.1</h3><h3>г) 4</h3><h3>д) 7</h3>
1) 7, 3, 4, 10, 11, 12,16, 2
2) ASCII. Это же строка
Устройства ввода - периферийное оборудование, которое отвечает за ввод/вывод данных или сигналов в ПК или из ПК.
<em>Примеры устройств для ввода информации:</em>
Сканер, микрофон, клавиатура, плата видеозахвата, графический планшет, компьютерная мышь, джойстик.
#include<iostream>
using namespace std;
int main()
{
int n,sum=0;
cin>>n;
while(n!=0)
{
sum=sum+n%10;
n=n/10;
}
cout<<sum<<endl;
}
Если x вводится с клавы:
var x:integer;
begin
readln(x);
writeln( 4*sqr(x)+2*(sqr(x)+1));
<span>End.
Если нет, то
</span>
begin
writeln( 4*sqr(3)+2*(sqr(3)+1));
<span>End.</span>