Задание 4

использовать Робот
алг
нач
вправо; закрасить
вправо; закрасить
вправо
вниз; закрасить
вниз; закрасить
вниз
влево; закрасить
влево; закрасить
влево
вверх; закрасить
вверх; закрасить
вверх
кон


Задание 5

алг
нач
вещ a1, a2, a3, a4, x, y
x := 5
a1 := 1/x
a2 := a1/x
a3 := a2/x
a4 := a3/x
y := a1 + a2
y := y + a3
y := y + a4
вывод "y = ", y
кон


Задание 6

алг
нач
цел x, y
x := 1
y := 2 * x
y := y + 3
y := y * x
y := y + 4
y := y * x
y := y + 5
вывод "y = ", y
кон


Задание 7

алг
нач
цел tfh, h, m, c
tfh := 2
h := tfh * 24
m := h * 60
c := m * 60
вывод "h = ", h, "; m = ", m, "; c = ", c
кон


Задание 8

алг
нач
вещ X, y
X := 5
y := X * 7 * 500 * 3 * 28 * 25.4 / 1000 / 1000
вывод "y = ", y
кон


Задание 9

алг
нач
цел a, b, c, s, x
x := 125
a := div(x, 100)
b := div(mod(x, 100), 10)
c := mod(x, 10)
s := a + b + c
вывод "Результат алгоритма - сумма цифр трехзначного числа:", нс
вывод "s = ", s
кон


Задание 10

алг
нач
цел x, y
x := 336
y := 8
x := div(x, y)
y := mod(x, y)
вывод "x = ", x, "; y = ", y
кон


Задание 13

алг
нач
цел A, B, C, D, Y
A:=5
B:=7
C:=10
D:=4
Y:=A
если B>Y
то Y:=B
все
если C>Y
то Y:=C
все
если C>Y
то Y:=C
все
вывод "Максимальное число - ", Y
кон


Задание 14

алг
нач
цел a, b, c
a:=5
b:=7
c:=10
если (a<b+c) и (b<a+c) и (c<a+b)
то вывод "Треугольник существует"
иначе вывод "Треугольник НЕ существует"
все
кон


Задание 15

алг
нач
цел a, b, c
a:=5
b:=5
c:=5
если a=b
то если a=c
то вывод "ДА"
иначе вывод "НЕТ"
все
иначе вывод "нет"
все
кон


Задание 16

алг
нач
цел x
x:=2
если mod(x,2)=0
то x:=x*x
иначе x:=x*x*x
все
вывод "Результат = ", x
кон


Задание 17

алг
нач
цел A, B, K
A:=2
B:=-3
K:=0
если A>=0
то K:=K+1
все
если B>=0
то K:=K+1
все
вывод "Всего = ", K
кон


Задание 18

алг
нач
цел A, B, C, K
A:=8
B:=3
C:=6
K:=0
если mod(A,2)=0
то K:=K+1
все
если mod(B,2)=0
то K:=K+1
все
если mod(C,2)=0
то K:=K+1
все
вывод "Всего = ", K
кон


Задание 19

алг
нач
цел a, b, x
a:=2
b:=11
x:=5
если x>=a
то если x<=b
то вывод "ДА"
иначе вывод "НЕТ"
все
иначе вывод "нет"
все
кон


Задание 20

алг
нач
лит приставка, буква
приставка:="низ"
буква:="з"
если приставка="без" или приставка="воз" или приставка="вз" или приставка="из" или приставка="низ" или приставка="раз" или приставка="чрез" или приставка="через"
то если буква="б" или буква="в" или буква="г" или буква="д" или буква="ж" или буква="з" или буква="л" или буква="м" или буква="н" или буква="р"
то вывод "Пиши 'З'"
иначе если буква="к" или буква="п" или буква="с" или буква="т" или буква="ф" или буква="х" или буква="ц" или буква="ч" или буква="ш" или буква="щ"
то вывод "Пиши 'С'"
иначе вывод "Выбрана неверная буква"
все
все
иначе вывод "Выбрана неверная приставка"
все
кон


Задание 21

алг
нач
цел chislo
лит y
chislo:=12
вывод chislo
chislo:=mod(chislo,7)
если chislo=3
то y:="понедельник"
все
если chislo=4
то y:="вторник"
все
если chislo=5
то y:="среда"
все
если chislo=6
то y:="четверг"
все
если chislo=0
то y:="пятница"
все
если chislo=1
то y:="суббота"
все
если chislo=2
то y:="воскресенье"
все
вывод " января 2011 года - ", y
кон


Задание 22

алг
нач
вещ x1, y1, d1, x2, y2, d2
x1:=5.6; y1:=1.4
x2:=-3.2; y2:=10.7
d1:=sqrt(x1*x1 + y1*y1)
d2:=sqrt(x2*x2 + y2*y2)
если d1<d2
то вывод "Точка A ближе"
иначе если d1>d2
то вывод "Точка B ближе"
иначе вывод "Точки на одинаковом расстоянии"
все
все
кон


Задание 23

алг
нач
цел x, A, B, C
x:=345
A:=mod(x,10)
B:=div(mod(x,100),10)
C:=div(x,100)
если A=B или B=C или A=C
то вывод "Есть"
иначе вывод "Нет"
все
кон


Задание 25

использовать Робот
алг закрасить периметр
нач
нц пока справа свободно
закрасить
вправо
кц
нц пока снизу свободно
закрасить
вниз
кц
нц пока слева свободно
закрасить
влево
кц
нц пока сверху свободно
закрасить
вверх
кц
кон

использовать Робот
алг закрасить углы
нач
нц пока справа свободно
вправо
кц
закрасить
нц пока снизу свободно
вниз
кц
закрасить
нц пока слева свободно
влево
кц
закрасить
нц пока сверху свободно
вверх
кц
закрасить
кон


Задание 26

алг
нач
цел god
вещ k, B, A, C
A := 12
B := 3
C := 1
god := 0
k := A
нц пока k >= C
god := god + 1
k := 1.15*k - B
кц
вывод god - 1, " лет."
кон


Задание 27

алг
нач
цел a, s, k
a := 5
s := a
k := 1
нц пока s < 324
k := k + 1
a := a + 4
s := s + a
кц
вывод "Число слагаемых = ", k
кон


Задание 28

алг
нач
цел x, k
x := 84260
вывод "В числе ", x
k := 0
нц пока x > 0
k := k + 1
x := div(x, 10)
кц
вывод " содержится ", k, " цифр."
кон


Задание 29

алг
нач
вещ s
цел k
s := 10000
k := 0
нц пока s < 20000
k := k + 1
s := 1.05 * s
кц
вывод "Через ", k, " лет сумма будет ", s, " рублей"
кон


Задание 30

алг
нач
цел s, k, X
X := 50
s := 1
k := 0
нц пока s < X
k := k + 3
s := 2 * s
кц
вывод "Через ", k, " часов будет ", s, " амеб."
кон


Задание 31

алг
нач
цел n, m
n := 1
m := 15
нц
m := m - 2
n := n * 2
кц при m < 6
вывод "n = ", n, "; m = ", m
кон


Задание 32

использовать Чертежник
алг а
нач
нц 6 раз
сместиться на вектор (4, 6)
сместиться на вектор (-2, -4)
кц
сместиться на вектор (-12, -12)
кон

использовать Чертежник
алг б
нач
цел a, b
a := 2
b := -1
нц 7 раз
сместиться на вектор (0, 2)
сместиться на вектор (a, 0)
сместиться на вектор (0, b)
сместиться на вектор (-1, 0)
кц
сместиться на вектор (-7, -7)
кон


Задание 33

алг
нач
цел x, y, z
x := 4
y := 3
вывод "Проверяем произведение: ", x, " * ", y, " = ", x * y, нс
z := 0
нц
z := z + x
y := y - 1
кц при y <= 0
вывод "Итак, произведение = ", z
кон


Задание 34

алг
нач
вещ s
цел i
s := 40000
нц для i от 1 до 3
s := 1.05 * s
кц
вывод "Численность населения города H через 3 года", нс
вывод "составит ", s, " человек."
кон


Задание 35

алг
нач
цел f, i
f := 1
нц для i от 1 до 10
f := f * 2
кц
вывод "Через 10 минут будет ", f, " бактерий."
кон