Выбрать место для цветка
Обозначить его форму
Прорисовать основные детали
Прорисовать мелкие детали
Var a,b,c: integer;
Begin
write('Ведите трёхзначное число: ');
readln (a);
b:=a div 100;
c:=a mod 100 div 10;
writeln('Число, полученное перестановкой цифр сотен и десятков: ',c,b)
End.
Var a,b,c,d: integer;
Begin
write('Ведите трёхзначное число: ');
readln (a);
b:=a div 100;
c:=a mod 100 div 10;
d:=a mod 10;
writeln('Число, полученное перестановкой цифр сотен и десятков: ',c,b,d)
End.
(PascalABCNET)
<span>A:=X div 1000=1234/1000=1
B:= X mod 1000 div 100=(1234/1000)/100=234/100=2
C:= X mod 100 div 10=(1234/100)/10=34/10=3
D:= X mod 10=1234/10=4
Y:=1000*d+100*c+10*b+a=1000*4+100*3+10*2+1=4321
</span><span>F:= X - Y+1=1234-4321+1=-3086</span>
Исполнитель (для количества слов исполнитель,исполнитель,исполнитель,исполнитель)