Решим задание наоборот: 12 -> 8, 31 -> 14, команды меняем на противоположные.
Команда 1: подели на 3.
Команда 2: прибавь 5.
12 -> 8.
12 : 3 = 4 (1).
4 + 5 = 9 (2).
9 : 3 = 3 (1).
3 + 5 = 8 (2).
Пишем команды снизу-вверх: 2121.
31 -> 14.
31 + 5 = 36 (2).
36: 3 = 12 (1).
12 : 3 = 4 (1).
4 + 5 = 9 (2).
9 + 5 = 14 (2).
Пишем снизу-вверх: 22112.
Var r,s:real;
begin
write('R = ');
readln(r);
s:=2*pi*r*r;writeln('Площадь круга = ',s:6:3);
end.
Пример:
<span>R = 2
Площадь круга = 25.133</span>
Ответ:
program Calc;
var
k, x, a, c, y: Double;
begin
Write ('k, x, a, c = ');
ReadLn (k, x, a, c);
if x > 0 then begin
y := k * Sqr (x);
WriteLn ('y = ', y);
end else if a + c <> 0 then begin
y := - x / (a + c);
WriteLn ('y = ', y);
end else
WriteLn ('деление на ноль');
ReadLn;
end.
Алгоритм это -список действий,понятных для некоторого исполнителя,ведушая к решению поставленной задачи .
Алгоритм – это особая последовательность действий, которая приводит к достижению поставленной задачи. Последовательность команд, которая приведет к достижению того или иного результата.
например:"сделай уроки"
начало
1.открой дневник
2.посмотри задание
3.открой учебник
4.прочитай задание
5.открой тетрадку
6.запиши задание
7.реши его
конец
1 бусинка самая маленькая 2 больше 3 больше 1,2 4 больше 1,2,3 а 5 больше 1,2,3,4. А 6 может быть равна любой из 1;2;3;4;5.
