город - Крупный населённый пункт, административный, торговый и промышленный центр
поселок - Российской империи — населённый пункт, в различных землях (краях, странах) имел различные названия подсе́лье, подсёлок, присёлок и посёлок, и означал поселение людей близ какого-либо селенья (села или деревни), людьми со стороны, а если из того же селенья, то это был вы́селок.
село - один из видов населённых пунктов России, Украины, Белоруссии, Казахстана, Молдавии, Болгарии и Израиля, относящийся к так называемым сельским населённым пунктам. Ранее тип крестьянского поселения (наряду с деревней).
Объяснение:
Program Sarumyana;
const n=10;
var a:array[1..n] of integer;
tri, nol, odd, i: integer;
begin
writeln('*** alphaues is thinking... ***');
tri:=0;
nol:=0;
odd:=1;
for i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(a[i]);
if a[i] mod 3 = 0 then tri := tri + a[i];
if a[i] = 0 then nol := nol + 1;
if i mod 2 = 1 then odd := odd * a[i]
end;
write('Строка чисел: ');
for i:=1 to n do
begin
write(a[i],' ');
end;
writeln();
writeln('Сумма элементов, кратных 3, равна ',tri);
writeln('Количество нулевых элементов = ',nol);
writeln('Произведение элементов, стоящих на нечётных местах, = ',odd);
end.
3
Объяснение:
Процедура delete имеет следующий вид: delete([строка], [идекс], [количество]) - т.е. из строки [строка] с позиции [индекс] будет удалено [количество] символов. На твоём примере: пока длина строки s больше 0 с позиции 1 удаляем два символа и выводим на экран единицу. На первой итерации цикла строка "123456" превратится в строку "3456", на второй итерации в "56" и на последней, третей итерации в "". Итого, чтобы длина строки стала 0 потребовалось 3 итерации, т.е. на экран выведется три единицы