Var i:integer;s:real;begins:=0;for i:=1 to 20 dos:=s+(1/i);writeln('y = ',s);end.
var s:real;
begin
s:=112.24973;
writeln (s:6:2);
end.
Вывод
112.25
Ответ:
Умный дом - это дом который делает за тебя работу по дому. А интернет вещей-это какой-нибудь интернет-магазин типа алиэкспресс. Остальные ответы поищи в интернете
Объяснение:
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Write('S=',ReadlnString.ToReals.Sum)
end.
<u>Пример</u>
14.72 253 -15.862 0.562345 17
S=269.420345
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-2,2); a.Println;
Writeln('Положительных: ',a.Where(x->x>0).Count)
end.
<u>Пример</u>
n= 15
1 -1 -1 2 0 2 2 -2 -2 0 -1 -1 -2 1 1
Положительных: 6