Регистрация
Zhurenko13
02.04.2020 19:51
Информатика
Есть ответ 👍

Дано трехзначное число.получить 6 различных чисел,образованных перестановкой цифр заданного числа.записать программу на языке паскаль.

138
227
Посмотреть ответы 2

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

mariyaarif
mariyaarif
4,8(10 оценок)

var n,n1,n2,n3: integer; function srostit(a,b,c: integer): integer; begin      srostit : =       a*100 + b*10 + c; end; begin      read(n);       n1: =n div 100;       n2: =n mod 100 div 10;       n3: =n mod 10;       writeln(srostit(n1,n2,n3));       writeln(srostit(n1,n3,n2));       writeln(srostit(n2,n1,n3));       writeln(srostit(n2,n3,n1));       writeln(srostit(n3,n1,n2));       writeln(srostit(n3,n2,n1)); end.

Заря101
Заря101
4,6(84 оценок)
Program gt; var s,q,n: integer; begin s: =0; while n> 0 do begin q: =n mod 10; n: =n div 10; s: =s+q; end; writeln(s); if(n mod 2=0)then writeln('четное')else writeln('не четное'); end.

Популярно: Информатика