если a>5 то a:=a+20 иначе a:=a*10
Подставляем значение а.
1) a=4
если 4>5 то a:=4+20 иначе a:=4*10
Утверждение ложно, выполняется то, что после "иначе". a:=4*10 = 40
2) a=17
если 17>5 то a:=17+20 иначе a:=17*10
Утверждение истинно, выполняется то, что после "то". a:=17+20 = 37
Var r,v:real;const p=3.14;beginwriteln('Введите радиус=');read(r);v:=4/3*p*(power(r,3));if (r=3) then writeln('Обьем окружности=',v:0:1)elsewriteln('Введите другой радиус');end.
===== PascalABC.NET =====
function F(x: real) := x - 1 / (3 + Sin(3.6 * x));
begin
var (a, b, eps) := (0.0, 0.85, 1e-5);
var x: real;
while Abs(F(a) - F(b)) >= eps do
begin
x := (a + b) / 2;
var y := F(x);
Writeln('Интервал (', a, ',', b, '), x = ', x, ', y =', y);
if Sign(y) = Sign(F(a)) then
a := x
else
b := x
end;
x := (a + b) / 2;
Writeln('Решение: х = ', x, ', y = ', F(x))
end.
package main
import "fmt"
import "math"
import "flag"
func main() {
var N int
flag.IntVar(&N, "N", 100, "")
numb := make([]bool, N)
limit := int(math.Sqrt(float64(N))) + 1
for i := 2; i < limit; i++ {
if !numb[i] {
for j := i * i; j < N; j += i {
numb[j] = true
}
}
}
for i := 2; i < N; i++ {
if !numb[i] {
fmt.Printf("%d\n", i)
}
}
}