Var a,b,c,d:integer; begin read(a,b,c,d); if (a=b) and (b=c) and (c=d) then writeln('Квадрат') else if ((a=b) and (c=d)) or ((a=c) and (b=d)) or ((a=d) and (b=c)) then writeln('Прямоугольник') else writeln('Четырёхугольник'); end.
Пример ввода: 1 2 2 1 Пример вывода: Прямоугольник
Линейный (последовательный) алгоритм — описание действий, которые выполняются однократно в заданном порядке. линейными являются алгоритмы отпирания дверей, заваривания чая, приготовления одного бутерброда. линейный алгоритм применяется при вычислении арифметического выражения, если в нем используются только действия сложения и вычитания.
например алгоритм заварки чая:
вскипятить воду ополоснуть кипятком заварной чайник засыпать в чайник заварку залить кипятком заварной чайник накрыть чайник специальной грелкой подождать до полного заваривания 5 минут
Var
a,b,c,d:integer;
begin
read(a,b,c,d);
if (a=b) and (b=c) and (c=d) then writeln('Квадрат')
else
if ((a=b) and (c=d)) or ((a=c) and (b=d)) or ((a=d) and (b=c)) then writeln('Прямоугольник')
else writeln('Четырёхугольник');
end.
Пример ввода:
1
2
2
1
Пример вывода:
Прямоугольник