Question

Дана блок-схема. Написать программу по блок-схеме.
Помогите пожалуйста!

Answer 1

Это полный разветвляющийся алгоритм.
Программа на языке Паскаль АВС:
program flow chart;
var x,y:integer;
begin
readln(x);
readln(y);
if x^2+y^2<25 then write(‘НЕ ПРИНАДЛЕЖИТ’);
else write(x^2+y^2<=100);
if x^2+y^2<=100 then write(‘ПРИНАДЛЕЖИТ’);
else write(‘НЕ ПРИНАДЛЕЖИТ’);
end.