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
Современным компьютерам предшествовали ЭВМ нескольких поколений. В развитии ЭВМ выделяют пять поколений. В основу классификации заложена элементная база, на которой строятся ЭВМ. 1. В 1943 году была создана вычислительных машин ЭВМ первого поколения на базе электронных ламп. 2. Второе поколение (50 – 60 г. г. ) компьютеров построено на базе полупроводниковых элементов (транзисторах) . 3. Основная элементная база компьютеров третьего поколения (60 – 70 г. г. ) - интегральные схемы малой и средней интеграции. 4. В компьютерах четвертого поколения (70 – по н/в) применены больших интегральных схемах БИС (микропроцессоры) . Применение микропроцессоров в ЭВМ позволило создать персональный компьютер (ПК) , отличительной особенностью которого является небольшие размеры и низкая стоимость. 5. В настоящее время ведутся работы по созданию ЭВМ пятого поколения, которые разрабатываются на сверхбольших интегральных схемах. Объяснение:
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
Современным компьютерам предшествовали ЭВМ нескольких поколений. В развитии ЭВМ выделяют пять поколений. В основу классификации заложена элементная база, на которой строятся ЭВМ. 1. В 1943 году была создана вычислительных машин ЭВМ первого поколения на базе электронных ламп. 2. Второе поколение (50 – 60 г. г. ) компьютеров построено на базе полупроводниковых элементов (транзисторах) . 3. Основная элементная база компьютеров третьего поколения (60 – 70 г. г. ) - интегральные схемы малой и средней интеграции. 4. В компьютерах четвертого поколения (70 – по н/в) применены больших интегральных схемах БИС (микропроцессоры) . Применение микропроцессоров в ЭВМ позволило создать персональный компьютер (ПК) , отличительной особенностью которого является небольшие размеры и низкая стоимость. 5. В настоящее время ведутся работы по созданию ЭВМ пятого поколения, которые разрабатываются на сверхбольших интегральных схемах. Объяснение: