готовлюсь к олимпиаде по информатике

[salauat]

ваша программа идет, спасибо, но не могу вникнуть, как она работает

выбора нет, на город уже уморился пройти. да изучал я паскаль один год и то не полный, и изучали не углубленно, не наш профиль был, дальше сам по немногу

в школе из того что здесь написано, я не проходил, скажем
uses crt;
repeat- until
dec, unc - их я изучал сам

chr
IntToStr а что такое это, не имею понятия, в readkey сильно еще не вникал

Сообщение от BDA

Например:

var
  n, m, i: integer;
begin
  readln(n, m);
  for i := 1 to n do
    if m > 9 then
    begin
      write(9);
      dec(m, 9);
    end else begin
      write(m);
      dec(m, m);
    end;
end.

эту программу понял

еще вопрос
код:

program vvod_texta;
uses crt;
var ma,wa,za:string; t,z:text;
begin
wa:=' lushaya';
assign(t,'in.txt');
reset(t);
read(t,MA,za);
assign(z,'out.txt');
rewrite(z);
write(z,ma,wa,za);
close(t);
close(z);
end.

а как сделать, что бы в файле с вводными данными, он читал и 2 строку?

[ZX Spectrum-128]

Пишите и читайте по отдельности.

Writeln(f,s1);
Writeln(f,s2);
...
Readln(f,s1);
Readln(f,s2);

[salauat]

еще одна задача:
Вася, кандидат в меры деревни Гадюкино, поручил электрику Пете провести ремонт освещения главной улицы. Предъявленное Пете требование было простое - улица должна освещаться, а из ламп на любых пяти подряд стоящих столбах хотя бы одна должна гореть. Другое требование было еще проще - новых ламп на замену сгоревших испоьзовать как можно меньше. Выясните, сколько новых ламп понадобится Пете.
Входные данные: В первой строке - количество столбов (до 250). Во второй - символы "1" или "0", означающие, исправна ли лампа на соответствующем столбе или нет.
Выходные данные: количество новых ламп.
Пример входных данных:
11
10000000001
Пример выходных данных: 1


код:
program bred;
uses crt;
var a,c,d,e,s,i:integer;
b:array [1..250] of integer;
begin
c:=1;
d:=5;
e:=0;
s:=0;
readln(a);
for i:=1 to a do
read(b[i]);
while i<=a do
begin
for i:= c to d do
if b[i]=1 then e:=1;
if e=0 then
begin
b[i]:=1;
s:=s+1;
end;
inc(c);
inc(d);
e:=0;
end;
writeln(s);
end.

программа работает, но при вводе 14 столбов, и все лампы перегоревшие, показывает что надо заменит 3 лампы, а не 2

[Poma][a]

Придира.

Интересное кино, я спас Вас от воплей ТС "Оно не работает!!!!!!", я же еще и придира

а так ни в одном из этих паскалей в жизни не писал. Бывает такое

Это как? Сразу на Делфи? (Или аналоги (TMP, VP)?)

[Аватар]

Это как? Сразу на Делфи? (Или аналоги (TMP, VP)?)

С FoxPro, турбо бэйсика, masm-а 16-битного на Delphi-2. А паскаль он и в Африке паскаль, что фри, что в дельфи

спас Вас от воплей ТС

ТС все равно не понял

[salauat]

что бы это "ТС" хоть что то понял, объясните, что делает chr

[Poma][a]

А справка на что?

ТС все равно не понял

Ни разу не меняет дело..

[BDA]

Вроде работает:

var
  s, n, i, k: integer;
  c: char;
begin
  s := 0;
  readln(n);
  k := 0;
  if n < 5 then
  begin
    for i := 1 to n do
    begin
      read(c);
      if c = '1' then
        k := i;
    end;
    if k = 0 then
      writeln(1)
    else
      writeln(0);
  end else begin
    for i := 1 to 4 do
    begin
      read(c);
      if c = '1' then
        k := i;
    end;
    for i := 1 to n - 4 do
    begin
      read(c);
      if c = '1' then
        k := i + 4;
      if i + 4 - k = 5 then
      begin
        inc(s);
        k := i + 4;
      end;
    end;
    writeln(s);
  end;
end.

[salauat]

спасибо, понял.
правда так и не понял в чем ошибка в моей программе

[salauat]

Сообщение от Аватар

  xCount:=17; //число цифр
  xSum:=76;   //сумма цифр
  s:='';
  for i:=1 to xCount do begin
    k:=Min(9,xSum);
    s:=s+IntToStr(k);
    Dec(xSum,k);
  end;
  // в s результат

)

в твою эту задачу я так и не понял