Надежда-Алексеевна82
?>

Написать программу с объяснением (pascalabc) даны первые 4 строки: 1) 1 2) 112 3) 1121123 4) 112112311211234 и т. д. написать программу выводящую n строку (n< =20)

Информатика

Ответы

elbabitch2014
Заметим, чтобы сгенерировать строку, нужно знать только предыдущую строку. Будет генерировать по порядку от 1 до n-ой строки.

Программа:

var
  n, i: integer;
  cur_str, prev_str: string;
begin
  read(n);
  prev_str := '';
  for i := 1 to n do {Генерируем строки по порядку от 1 до n}
  begin
    str(i, cur_str); {Записываем в текущую строку её порядковый номер}
    cur_str := prev_str + prev_str + cur_str; {Дописываем предыдущую строку два раза в начало}
    prev_str := cur_str; {Записываем текущею строку вместо предудущей}
  end;
  writeln(cur_str);
end.
agutty3

дуктом питания, упоминания о ней можно найти в древних летописях, и только после XVIII столетия она уступила свою популярность завезенному из Америки картофелю. Растение репа – ценный овощной и лекарственный продукт. Ее можно запекать, варить, фаршировать, добавлять в салаты. Репа обладает антисептическим, противовоспалительным, мочегонным, обезболивающим и ранозаживляющим действием. Она повышает аппетит, усиливает перистальтику кишечника, ускоряет процесс усвоения пищи организмом.

Объяснение:

баллы хочу

bolosolo77

дуктом питания, упоминания о ней можно найти в древних летописях, и только после XVIII столетия она уступила свою популярность завезенному из Америки картофелю. Растение репа – ценный овощной и лекарственный продукт. Ее можно запекать, варить, фаршировать, добавлять в салаты. Репа обладает антисептическим, противовоспалительным, мочегонным, обезболивающим и ранозаживляющим действием. Она повышает аппетит, усиливает перистальтику кишечника, ускоряет процесс усвоения пищи организмом.

Объяснение:

баллы хочу

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Написать программу с объяснением (pascalabc) даны первые 4 строки: 1) 1 2) 112 3) 1121123 4) 112112311211234 и т. д. написать программу выводящую n строку (n< =20)
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

TatarkovTitova
Татьяна Марина1287
kiruha0378
luksorsps20096124
xachen
ddavydov1116
Mikhail_Magomed635
goodsled
Александровна1973
Сухроб944
impuls20125948
mmoskow3
evg-martenyuk
victoria-112296363
e3913269