Top.Mail.Ru
Ответы

Помогите с информатикой

Напиши программу, которая решает данную задачу:
Задача:
Дан список слов с приставками: «приставка, надвернуть, подбежать, прислуга, преимущество».
Необходимо из каждого слова в списке убрать приставку.
Поместить результат в новый список и вывести новый список

По дате
По рейтингу
Аватар пользователя
Новичок

Программа на PascalABC:

const N = 5;
var B : array [1..N] of string;
begin
var A : array [1 .. N] of string = ('приставка', 'надвернуть', 'подбежать', 'прислуга', 'преимущество');
WriteLn (' Исходный массив:');
for var i := 1 to N do
begin
Write (' ', A[i]); B[i] := A[i];
end; WriteLn;
WriteLn (' Преобразованный массив:');
for var i := 1 to n do
begin
Delete(B[i], 1, 3);
Write ( ' ',B[i]);
end;
end.