1580kilobautпо идее должно быть до 1580 килобайтов
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<em>Цикл for</em>
begin
var p:=1.0;
for var i:=1 to 100 do p*=(1+Sin(i/10));
Writeln(p)
end.
<em>Результат</em>
<u>1.72984094681</u>772<u>E-14</u>
<em>Цикл repeat</em>
begin
var (p,i):=(1.0,0.1);
repeat
p*=(1+Sin(i));
i+=0.1
until i>10;
Writeln(p)
end.
<em>Результат</em>
<u>1.72984094681</u>773<u>E-14</u>
Контрольное решение с точностью 20 цифр приведено во вложении. В соответствии с ним верные цифры в результатах <u>подчеркнуты</u>.
Ответ:
var i:integer;
begin
for i:=1 to 10 do writeln(i:2,' * 2 = ',i*2)
end.
1)
var a,b:longint;
begin
readln(a,b);
writeln(a+b);
end.
2)
var x:longint;
begin
readln(x);
if(x>0) then writeln(x-6) else if(x=0) then writeln(32*x-7) else if(x<0) then writeln(5*x-2);
end.
3) В третьей условие не совсем понял, если что, дополни, отредактирую код. Какие значения принимают элементы (по какому принципу заполняется массив)? Написал для массива с элементами от 1 до 50.
var a:array[1..50] of integer;
var i:integer;
begin
for i:=1 to 50 do a[i]:=i;
for i:=1 to 50 do writeln(a[i]);
end.
Поскольку a не менялось, ничего не присваивалось, то оно как было так и осталось 7
Найдем b через подстановку
5 = b + 7
b = 7 - 5 = 2
