Легко там делай сам подумай и всё лоды
Составьте программу ввода и вывода: 5,-3,4,-8,-9,1,9,6,-3,4,8,2. Помогите пожалуйста))
bostonteam
На каком языке? Можно найти программу по типу "Hello world", самую легкую программу, такую найти легко, и можно заменить "Hello world" на "
<span>5,-3,4,-8,-9,1,9,6,-3,4,8,2" . Можно найти на свободной энциклопедии </span>
<span />
1)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1; i:=1;
repeat
i:=i+1;
d:=d*2;
z:=-z;
s:=s+z/d;
until i>=n;
writeln('s = ',s);
end.
2)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1; i:=1;
while i<n do
begin
i:=i+1;
d:=d*2;
z:=-z;
s:=s+z/d;
end;
writeln('s = ',s);
end.
3)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1;
for i:=2 to n do
begin
d:=d*2;
z:=-z;
s:=s+z/d;
end;
writeln('s = ',s);
end.
Пример:
5
s = 6.875000000000000e-01
Разделить целую часть числа на триады от младших разрядов к старшим (влево от запятой);
- разделить дробную часть на триады в обратном направлении (вправо от запятой);
- заменить каждую триаду двоичных чисел соответствующей восьмеричной цифрой по таблице, предложенной выше;
- недостающие до триады позиции заполнить незначащими нуями.
Пример:
1010,111112=001010,1111102=12,768
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
1)
begin
var x:=ReadReal('X =');
Writeln('Y = ', x>=0 ? 7*x - 3:2*x*x*x);
end.
2)
begin
var a:=ReadReal('Результат первого участника равен');
var b:=ReadReal('Результат второго участника равен');
var c:=ReadReal('Результат третьего участника равен');
Writeln('Лучший результат: ', min(min(a,b), c));
end.
3)
begin
var b:= ReadReal('b =');
Writeln(b > 3? b-5:b*2);
end.