Составьте программу, формирующую строку, образованную любым количеством любого символа (количество и символ вводятся с клавиатуры).
Помогите пожалуйста решить на Free Pascal
Ответы
Ответ дал:
0
var c:char; n,i:integer; s:string;
begin
write('Введите символ: ');
readln(c);
write('n = ');
readln(n);
s:='';
for i:=1 to n do s:=s+c;
writeln(s);
end.
Пример:
Введите символ: f
n = 5
fffff
begin
write('Введите символ: ');
readln(c);
write('n = ');
readln(n);
s:='';
for i:=1 to n do s:=s+c;
writeln(s);
end.
Пример:
Введите символ: f
n = 5
fffff
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад