Program ZZZ;
var a, b, c : integer ;
begin
WRITELN ('Введите значения коэффициентов квадратного трехчлена a,b,c');
readln (a,b,c);
D:= b*b - 4*a*c;
WRITELN ('Дискриминант квадратного трехчлена равен ',D);
end.
Всё просто
5 + 23 = 28
28 + 35 = 63
63 - 27 = 36
36 > 10? да ⇒ 36 + 5 = 41
41 / 2 без остатка? нет⇒ ничего
41 нечётное? да ⇒ 41 * 2 = 82
Вывод 82
конец
1. Когда переходишь дорогу нужно с лезать с велосипеда. 2. ехать там только где можно.3. не ехать по дороге.4. когда едешь ночью на велосипеде то одевай одежду которая светиться от света фар.5.ехать с зашитами.
Все или еще?
Использовать Робот
алг
нач цел k
k:=1
| 1-пришел снизу
| 2-пришел справа
| 3-пришел слева
| 4-пришел сверху
нц пока k>0
нц пока справа свободно и k<>2
вправо
счет
k:=3
кц
нц пока сверху свободно и k<>4
вверх
счет
k:=1
кц
нц пока снизу свободно и k<>1
вниз
счет
k:=4
кц
нц пока слева свободно и k<>3
влево
счет
k:=2
кц
кц
кон
алг счет
нач цел i
i:=0
| i-число стенок вокруг
если сверху стена то i:=1 все
если слева стена то i:=i+1 все
если справа стена то i:=i+1 все
если снизу стена то i:=i+1 все
если i=3 то стоп все
если i=1 то закрасить все
кон<span>
</span>
Программа и пример её работы - в прилагаемом файле.