На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
uses SysUtils; var a, b, c, max:integer begin writeln('enter a, b, c'); readln(a, b, c); if a>b then max:= a else max := b; if c>max then max := c; writeln ('max= ',max); readln end.
uses SysUtils; var a, b, c, max:integer begin writeln('enter a, b, c'); readln(a, b, c); if a>b then max:= a else max := b; if c>max then max := c; writeln ('max= ',max); readln end.
id: 9Комментарии: 0Просмотров: 1121Автор: Reif
Категория: Для новачка
В первом примере мы научимся создавать консольное приложение, напомню что приложением называются программы работающие в семействе windows. И так, для начала составим программу которая слогает х и у,В первом примере мы научимся создавать консольное приложение, напомню что приложением называются программы работающие в семействе windows. И так, для начала составим программу которая слогает х и у, код:
|