Конкурс "загадка художника" Дорисуйте линии, так, что бы картинка получилась

Фантазии не хватает

197

243

Посмотреть ответы 1

Ответы на вопрос:

далекоотсолнца

Информатика

4,7(77 оценок)

Uses crt; var a,b,c,x,max,min,sum,pr: integer; begin write('введите число: '); readln(x); a: = x div 100; b: = x div 10 mod 10; c: = x mod 10; sum: =a+b+c; pr: =a*b*c; if a> b then begin min: =b; max: =a; end else begin max: =b; min: =a; end; if min> c then min: =c; if max< c then max: =c; writeln('сумма цифр числа: ',sum); writeln('произведение цифр числа: ',pr); writeln('максимальная цифра: ',max); writeln('минимальная цифра: ',min); end.