Задача по программированию 8 класс. Решите как положено через паскаль!!
5-9 класс
|
Дано трехзначное число, в котором все цифры различны. Получить шесть чисел, образованных при перестановке цифр заданного числа.
Uses crt;
Var p1,p2,p22,k,p3,i: integer;
b:array [1..6] of integer;
Begin
Writeln('введите трехзначное целое число -');
Readln(k);
p1:=k div 100;
p22:=k mod 100;
p2:=p22 div 10;
p3:=p22 mod 10;
writeln('p1= ',p1,'p2= ',p2,'p3= ',p3);
b[1]:=p1+p2*10+p3*100;
b[2]:=p1+p3*10+p2*100;
b[3]:=p2+p1*10+p3*100;
b[4]:=p2+p3*10+p1*100;
b[5]:=p3+p2*10+p1*100;
b[6]:=p3+p1*10+p2*100;
for i:=1 to 6 do
writeln('b[',i,']= ',b);
end.
Другие вопросы из категории
а:=8
b:=6+3*а
а:=b/3*а
Чему равно значение переменной а после его исполнения?
Ваш ответ:
2)Исполните следующий фрагмент линейного алгоритм для а = х и b = y.
а:=а+b
b:=b-a
а:=а+b
b:=-b
Какие значения присвоены переменным a и b?
а)-у, х
б)y, х
в)х, у
г)х+у, х-у
3)Определите значение целочисленных переменных х и у после выполнения фрагмента программы.
х:=11
у:=5
t:=y
у:=х mod у
x:=t
y:=y+2*t
а)х = 10, у = 5
б)х = 5, у = 11
в)x = 11, y = 5
г)х = 5, у = 10
4)Среди четырёх монет есть одна фальшивая. Неизвестно, легче она или тяжелее настоящей. Какое минимальное количество взвешиваний необходимо сделать на весах с двумя чашками без гирь, чтобы определить фальшивую монету?
а)4
б)2
в)5
с)3
Читайте также
Дано трехзначное число. Найти число, полученное при перестановке первой и второй цифр заданного числа
задачи вместе; Петя решил на 2 задачи больше, чем Вася; Илья решил меньше задач, чем Коля; Никита решил больше задач, чем Илья, но меньше, чем Вася; каждый решил хотя бы по одной задаче.
информацию.Двоичный код какой разрядности потребуется, если алфавит, используемый племенем Мульти, содержит 16 символов?