НУЖНА ЛОГИЧЕСКИЕ СВЯЗИ 11 КЛАСС
далеко не все рыболовы при выходе на ориентируются на благоприятный прогноз активности клева. многие, многие берут в руки снасти потому, что не признают иного варианта использования досуга. зачастую, отправляясь на водоем, им приходится действовать наперекор прогнозу, иногда даже вопреки здравому смыслу. и вот тогда стойкость в борьбе с капризами погоды, знание, наблюдательность, терпение, изобретательность и огромное желание поймать «золотую» рыбку им выжать максимум радости из минимума удобств.
1) program pr; var a: integer; beginwriteln('введите число'); readln(a); if a> 0 then writeln('число положительно'); if a=0 then writeln('число является 0-эм'); if a< 0 then writeln('число отрицательно'); end.
2)program pr; var a,b: integer; beginwriteln('введите 2 заданых числа'); readln(a); readln(b); if a> b then b: =10 else a: =10; writeln(a); writeln(b); end.
(проверено и откомпелировано с pascal.net)