var a,n,i,j,s:integer; begin writeln('Введите количество цифр в числе'); readln(n); for i:=1 to n do begin writeln('Введите ',i,' цифру из ',n); readln(a); for j:=1 to n-i do a:=a*10; s:=s+a; end; writeln('Натуральное число: ',s); end.
Тестовое решение
Введите количество цифр в числе 5 Введите 1 цифру из 5 9 Введите 2 цифру из 5 2 Введите 3 цифру из 5 7 Введите 4 цифру из 5 3 Введите 5 цифру из 5 1 Натуральное число: 92731
Решение №2 Если очень надо использовать массив (хотя на мой взгляд совсем не нужно)
//PascalABC.NET (версия 3.1, сборка 1198) var a,n,i,j,s:integer; mas:array[1..10]of integer; begin writeln('Введите количество цифр в числе'); readln(n); for i:=1 to n do begin writeln('Введите ',i,' цифру из ',n); readln(mas[i]); a:=mas[i]; for j:=1 to n-i do a:=a*10; s:=s+a; end; writeln('Натуральное число: ',s); end.
Тестовое решение
Введите количество цифр в числе 5 Введите 1 цифру из 5 5 Введите 2 цифру из 5 4 Введите 3 цифру из 5 3 Введите 4 цифру из 5 2 Введите 5 цифру из 5 2 Натуральное число: 54322
KDE - или кеды, самые дружелюбные к пользователю пример кедов на скрине (ток у меня специально упрощенный)
GNOME2 - отличная оболочка раньше была, но перешли на кеды, так как на смену пришел GNOME3
GNOME3 - многие плюются, многие восхищаются кому как, мне лично понравилось, но пробыл с ним 2-3 месяца
XFCE - легкая оболочка, для нетбуков и т.п. - отличная вещь
LXDE - легкая оболочка, однако хоть и легче немного XFCE, но работать с ней - мазохизм
UNITY - столько радужных слов хочется сказать уж слишком тормозит на древнегреческих компах уж слишком много ресурсов ест уж слишком много анимации + не удобное меню используют его как правило ламеры/хомячки которые сидят на бубунту, и не знают, что есть другие оболочки
Отличаются как правило - заводскими программами при установке
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку