Question

Помогите пожалуйста срочно
В паскале сделать программу 3 задание 

Answer 1

// PascalABC.NET 3.0, сборка 1076
var
  c:char;
  s:string;
begin
  s:='';
  for c:='А' to 'Я' do begin s:=s+c; Writeln(s) end
end.
   
Тестовое решение:
А
АБ
АБВ
АБВГ
АБВГД
АБВГДЕ
АБВГДЕЖ
АБВГДЕЖЗ
АБВГДЕЖЗИ
АБВГДЕЖЗИЙ
АБВГДЕЖЗИЙК
АБВГДЕЖЗИЙКЛ
АБВГДЕЖЗИЙКЛМ
АБВГДЕЖЗИЙКЛМН
АБВГДЕЖЗИЙКЛМНО
АБВГДЕЖЗИЙКЛМНОП
АБВГДЕЖЗИЙКЛМНОПР
АБВГДЕЖЗИЙКЛМНОПРС
АБВГДЕЖЗИЙКЛМНОПРСТ
АБВГДЕЖЗИЙКЛМНОПРСТУ
АБВГДЕЖЗИЙКЛМНОПРСТУФ
АБВГДЕЖЗИЙКЛМНОПРСТУФХ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ

Answer 2

//Pascal ABC.NET Версия 2.2 Сборка 790
const alf:string='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

var i:integer;
s:string;
begin;
for i:=1 to length(alf) do
begin;
s:=s+alf[i];
writeln(s);
end;
end.