1. Полная программа:
Var S,i: Integer;
Begin
S:=10; For i:=1 to 4 do S:=S - i;
writeln(s);
End.
2. Значение переменной S: 0.
Ответ А14
Разберёмся:
по А будет доходить 15 + 2 + 2^21/( 0,25 * 8) = 15+2+1 =18 с
по Б будет доходить 8 * (8/2) = 32 с
Бумага та чорнило та думки
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x=');
if (x>8) or (x<-8) then Writeln('|x|>8')
else Writeln('|x|<=8')
end.
M:= 0.85
c:= 23.4
For i:= 1 to 10 do
Begin
a:= m*(I*5) + c;
WriteLn(a);
End;