Начало
Условие
Решение
Вывод
Конец
Как-то так
const x0=0; x1=180; dx=1;
var x:real;
begin
x:=x0;
while x<=x1 do
begin
writeln(x,' ',x/180*pi);
x:=x+dx;
end;
<span>end.</span>
В отличие от линейных алгоритмов, в которых команды выполняются последовательно одна за другой, в алгоритмическую структуру «ветвление» входит условие, в зависимости от выполнения или невыполнения которого реализуется та или иная последовательность команд (серия).
var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
Программа переводит метры в километры