в выходной текстовый файл input.txt выведите изображение фигуры, приведенной ниже (задание 5)
Приложения:

Ответы на вопрос
Ответил DogDogGo
1
// Pascal ABC.NET
var
i, j: Integer;
fOut: text;
begin
Assign(fOut, 'input.txt');
ReWrite(fOut);
for i := 1 to 5 do begin
for j := 1 to (5-i) do
Write(fOut, ' ');
for j := 1 to 1 + 2*(i-1) do
Write(fOut, i);
for j := 1 to (5-i) do
Write(fOut, ' ');
WriteLn(fOut);
end;
Close(fOut);
end.
Новые вопросы
Другие предметы,
2 года назад
Қазақ тiлi,
2 года назад
Английский язык,
7 лет назад
Литература,
8 лет назад