квадратная стена в каждый угол посадить по зайцу, это будет 4 зайца, а пятого посадить в получаем у каждой стены по2 зайца
Ответ дал: Гость
program e7;
var x: integer;
begin
writeln('vvedite znachenie gradusnoi meri ugla');
readln(x);
if a=180 then writeln('razvernutii') else writeln('ne razvernutii');
readln;
end.
если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.
Ответ дал: Гость
var x: real; begin read(x); writeln(round(x)); end.
Популярные вопросы