КОНФИГУРАЦИЯ
------------------------------------
Var
a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do
readln(a[i]);
for i:=1 to 15 do
if a[i]<=i then
write(a[i]);
<span>end.</span>
Значения n и s после каждого прохождения циклом даны в приложении.
Ответ: 180
Начало
Присвоить С=14
Метка1: Если C>130 Тогда ВЫХОД
С=С+1
Вывод С
Вывод Символ ':'
Вывод 1,8*C+32
Вывод Символ перевода строки
Перейти Метка1
3) Наборы структур данных, используемых для управления файлами