PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018 Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger; var (s,d,e):=(n div 100, (n div 10) mod 10, n mod 10); Writeln('Cотни ',s,', десятки ',d,', единицы ',e); Writeln('Сумма цифр ',s+d+e,', их произведение ',s*d*e); Writeln('Справа налево: ',100*e+10*d+s); Writeln('Перестановка сотен в конец: ',100*d+10*e+s) end.
Пример 328 Cотни 3, десятки 2, единицы 8 Сумма цифр 13, их произведение 48 Справа налево: 823 Перестановка сотен в конец: 283
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018 Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Укажите n>11:'); var c:=ArrRandom(n,-50,50); c.Println; var a:=new integer[n]; for var i:=0 to n-1 do if i.Between(2,11) then a[i]:=Sqr(c[i]) else a[i]:=c[i]-1; a.Println; var imax:=a.IndexMax; a[imax]:=-a[imax]; Writeln('Максимальный элемент заменен на ',a[imax]); var imin:integer; (imin,imax):=(a.IndexMin,a.IndexMax); if imin>imax then Swap(imin,imax); for var i:=imin+1 to imax-1 do a[i]:=0; a.Println end.
программаны келесі алгоритм бойынша іске қосындар:
1.Іске қосу (Пуск) батырмасына басыңдар,Барлық программаларды(Все программы) таңдаңдар.
2.Добро в Sketch Up терезесіненШаблонды таңдауды(Выбрать шаблон) ашыңдар. Бірнеше шаблон нұсқаларын қажеттісін ішінен таңдап алыңдар.
3.Начать использование Sketch Up Батырмасын басыңдар. Sketch Up программасының жұмыс терезесі бірнеше аймақтарға бөлінген.
Объяснение:
Кітаптағы алгоритмі