№3
1) открой холодильник,
2) достань из холодильника жёлтую кастрюлю, в которой суп
3) поставь кастрюлю на газовую плиту,
4) зажги газ,
5) если нет спичек, воспользуйся микроволновкой
6) нилей суп в кантейнер и закрой его
7) поставь суп в микроволновку и выставь на таймере цифру 5
8) нажми старт
№2
Алгорит без обратной связи. Потому что ребенок не смотрит выполнено ли действие или на наличие того или иного предмета. Например, по истечению тех же пяти минут не факт что этот суп будет теплый
program RadToGrad;
var
Rd, Gr, G, M, S: Real;
begin
Write ('Rd = ');
ReadLn (Rd);
Gr := Rd * 180 / pi;
G := Int (Gr);
M := Int (Frac (Gr) * 60);
S := Frac (Frac (Gr) * 60);
Write (Rd:4:2, ' Rad = ', G:3:0, ' гр. ', M:3:0, ' мин ', S:3:1,' сек');
ReadLn;
end.
program GradToRad;
var
Rd, Gr, G, M, S: Real;
begin
Write ('Введите грудусы, минуты, секунды: ');
ReadLn (G, M, S);
Gr := G + M / 60 + S / 3600;
Rd := Gr * Pi / 180;
Write ('Rad = ', Rd :15 :15);
ReadLn;
end.
program Protiv;
var
a, b, c: Integer;
begin
Write ('Введите три числа: ');
ReadLn (a, b, c);
if a = - b then
WriteLn (a, ' и ', b, ' взаимно противоположные.')
else if a = - c then
WriteLn (a, ' и ', c, ' взаимно противоположные.')
else if b = - c then
WriteLn (b, ' и ', c, ' взаимно противоположные.')
else
WriteLn ('Взаимно противоположных чисел нет.');
ReadLn;
end.
