Лллмммлткмлткм
л- луковица
м- морковка
т-тыква
к-капуста
Не знаю, есть ли в PascalABC для этого какие-либо особые инструменты (давно уже на нем не кодил), но могу привести общие для любого языка программирования.
Пусть есть двумерный массив с размерами
- кол-во столбцов и строк соответственно.
1) Вручную
Не самый лучший вариант с ростом кол-ва элементов
2) Вложенные циклы for
Первый перебираем от 0 до N-1 (переменная j)
Второй, вложенный в первый, перебираем от 0 до M-1(переменная i)
Внутри - условие: если (i == M-j-1), то ставим 1, иначе - 0.
С динамическим массивом:
<em>VAR</em>
<em> i: Integer;</em>
<em> a: Array of Char;</em>
<em>BEGIN</em>
<em> Assign(input, 'input.txt'); ReSet(input);</em>
<em></em>
<em> SetLength(a, 1);</em>
<em> While (not eoln(input)) do begin</em>
<em> SetLength(a, Length(a)+1);</em>
<em> Read(a[Length(a)-1]); End;</em>
<em></em>
<em> For i := 1 to Length(a)-1 do</em>
<em> If (not Odd(i)) then a[i] := '-';</em>
<em></em>
<em> For i := 1 to Length(a)-1 do Write(a[i]);</em>
<em>END.</em>
<span>Послідовні цикли – це алгоритми, у яких циклічні структури слідують одна за одною, тобто лінійно. Вкладений цикл – це цикл, який використовується як команда в тілі іншого циклу.
</span>Допоміжний<span> (підлеглий) алгоритм (процедура) - алгоритм, розроблений раніше і цілком використовуваний при алгоритмізації конкретної задачі. В деяких випадках при наявності однакових послідовностей вказівок (команд) для різних даних з метою скорочення запису також виділяють допоміжний алгоритм.
</span>
program
esep5;
var
n:integer;
begin
writeln(‘san
engiz’,’n');
readln(n);
if
(n mod 3=0) then writeln('yes')
else writeln('no');
<span>end.</span>