Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц.

@Lissa_kamcha · Регистрация: 02.10.2010

Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц.
Помогите пожалуйста составить программу

@Puporev · 06.10.2010, 17:08

Pascal

uses crt;
var k,s:longint;
    n,i,a:byte;
begin
clrscr;
repeat
write('Количество цифр от  1 до 9 n=');
readln(n);
until n in [1..9];
writeln('Введите ',n,' цифр начиная с единиц:');
s:=0;k:=1;
for i:=1 to n do
 begin
  repeat
  write('Цифра ',i,'=');
  readln(a);
  until a in [0..9];
  s:=s+k*a;
  k:=k*10;
 end;
write('Число=',s);
readln
end.

@Lissa_kamcha · 06.10.2010, 17:52 **[ТС]**

Спасибо большое))

@Lissa_kamcha 5 / 5 / 2 Регистрация: 02.10.2010 Сообщений: 30
		1
	Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц. 06.10.2010, 16:25. Показов 2026. Ответов 2 Метки нет (Все метки) Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц. Помогите пожалуйста составить программу __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Lissa_kamcha 5 / 5 / 2 Регистрация: 02.10.2010 Сообщений: 30
	06.10.2010, 17:52 [ТС]	3
	Спасибо большое)) 0

Опции темы

Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц.

Решение