Var n,max: longint; begin writeln('введите трехзначное число: '); readln(n); max: =0; repeat if (n mod 100)> max then max: =(n mod 100); n: =n div 100; until n=0; writeln('самое большое число в трехзначном числе: ',max); readln; end.
var a,p: integer; beginread(a); p: =(a mod 10)*(a div 100)*(a mod 100 div 10); write(p); end.
var a,b,c,min: integer; beginwriteln('введи 3 числа'); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln(3*min: 4); readln; end.
Ответ дал: Гость
обработка с электронных таблиц автоматизирует весь процесс и ускоряет выполнение работы.
Популярные вопросы