PascalABC. Дано целое число N (> 0) и символ C

Евгений1240 · 20.04.2012, 13:15

Помогите решить. В PascalABC
String8. Дано целое число N (> 0) и символ C. Вывести строку длины N, которая состоит из символов C.

Vladimir_S · 20.04.2012, 14:35

Цитата:

Сообщение от Евгений1240

Помогите решить. В PascalABC
String8. Дано целое число N (> 0) и символ C. Вывести строку длины N, которая состоит из символов C.

Да... воистину - задача века!

Код:

Var
 N,i:Byte;
 S:String;
 C:Char;
Begin
 Write('String length N (<256) = ');
 Readln(N);
 Write('Symbol = ');
 Readln(C);
 S:='';
 For i:=1 to N do S:=S+C;
 Writeln(S);
 Readln
End.

Только вот, извините, но я у себя на компьютере всякой дряни типа порно или Паскаля АВС не держу, так что тестировалось на Free Pascal. Если будут проблемы - сообщите.

20.04.2012, 13:15	#1 (permalink)
Евгений1240 Новичок Регистрация: 20.04.2012 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	PascalABC. Дано целое число N (> 0) и символ C Помогите решить. В PascalABC String8. Дано целое число N (> 0) и символ C. Вывести строку длины N, которая состоит из символов C.

20.04.2012, 13:15
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Не ругайтесь, но вам нужно прочитать похожие темы PascalABC, графика Символ этого года Символ "сбитые старушки" на крыле легкового автомобиля PascalABC,нужно найти ошибку

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070