Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / LENA / LENA2
.PAS program kkk;
uses lena1;
var
a:array[1..20] of string;
i, n, m:integer;
begin
writeln('ўўҐ¤ЁвҐ Є®«-ў® н«Ґ¬Ґв®ў');
readln(n);
writeln('ўўҐ¤ЁвҐ б«®ў ');
for i:=1 to n do
readln(a[i]);
slova(i, n, m);
end.
uses lena1;
var
a:array[1..20] of string;
i, n, m:integer;
begin
writeln('ўўҐ¤ЁвҐ Є®«-ў® н«Ґ¬Ґв®ў');
readln(n);
writeln('ўўҐ¤ЁвҐ б«®ў ');
for i:=1 to n do
readln(a[i]);
slova(i, n, m);
end.