Program p1; uses crt; var a,ed,des,sot,tis,s,p,max:longint; begin clrscr; writeln('введите четырех значное число'); readln(a); ed:=a mod 10; des:=a div 10 mod 10; sot:=a div 100 mod 10; tis:=a div 1000; s:=0; p:=1; p:=ed*des*sot*tis; s:=ed+des+sot+tis; writeln('Произведение чисел = ',p); writeln('Сумма чисел = ',s); if (ed>des) and (ed>sot) and (ed>tis) then max:=ed; if (des>ed) and (des>sot) and (des>tis) then max:=des; if (sot>ed) and (sot>des) and (sot>tis) then max:=sot; if (tis>ed) and (tis>des) and (tis>sot) then max:=tis; writeln('Максимальное число = ',max); readln; end.
Запустите программу, выберите меню Файл | Создать…. Справа появилась боковая панель создания документа. В разделе «Создание документа с шаблона» щёлкните по пункту «Общие шаблоны…». В появившемся диалоге «Шаблоны» откройте вкладку «Другие документы» и выберите пункт «Мастер календарей». Нажмите OK для продолжения. Если компонент календаря ещё не установлен, то программа сама его установит. На первой странице Мастера календарей щёлкните «Дальше». Выберите стиль оформления календаря: «Строгий», «Стандартный» или «Изысканный». По внешнему виду можно догадаться, как календарь будет выглядеть. Выберите ориентацию календаря и наличие рисунка. С рисунком готовый документ будет выглядеть немного нарядней, особенно, если распечатаете его на цветном принтере. Выберите начальный и конечный месяц и год. По умолчанию выбран текущий месяц и год 2013. Рекомендую сразу распечатать календарь на год – выберите следующий 2014 год. Создание календаря завершено! Нажмите кнопку «Готово», чтобы увидеть получившийся документ.
uses crt;
var a,ed,des,sot,tis,s,p,max:longint;
begin
clrscr;
writeln('введите четырех значное число');
readln(a);
ed:=a mod 10;
des:=a div 10 mod 10;
sot:=a div 100 mod 10;
tis:=a div 1000;
s:=0; p:=1;
p:=ed*des*sot*tis;
s:=ed+des+sot+tis;
writeln('Произведение чисел = ',p);
writeln('Сумма чисел = ',s);
if (ed>des) and (ed>sot) and (ed>tis) then max:=ed;
if (des>ed) and (des>sot) and (des>tis) then max:=des;
if (sot>ed) and (sot>des) and (sot>tis) then max:=sot;
if (tis>ed) and (tis>des) and (tis>sot) then max:=tis;
writeln('Максимальное число = ',max);
readln;
end.
Справа появилась боковая панель создания документа.
В разделе «Создание документа с шаблона» щёлкните по пункту «Общие шаблоны…».
В появившемся диалоге «Шаблоны» откройте вкладку «Другие документы» и выберите пункт «Мастер календарей». Нажмите OK для продолжения. Если компонент календаря ещё не установлен, то программа сама его установит.
На первой странице Мастера календарей щёлкните «Дальше».
Выберите стиль оформления календаря: «Строгий», «Стандартный» или «Изысканный». По внешнему виду можно догадаться, как календарь будет выглядеть.
Выберите ориентацию календаря и наличие рисунка. С рисунком готовый документ будет выглядеть немного нарядней, особенно, если распечатаете его на цветном принтере.
Выберите начальный и конечный месяц и год. По умолчанию выбран текущий месяц и год 2013. Рекомендую сразу распечатать календарь на год – выберите следующий 2014 год.
Создание календаря завершено! Нажмите кнопку «Готово», чтобы увидеть получившийся документ.