Информатика, вопрос опубликован 07.03.2019 19:22 Викусик183

Как от куска материи длиной 2/3 метра отрезать пол метра, не имея под руками линейки

Ответы
Ответ добавил: Гость

var a: array[1..10] of integer;

p,i: integer;

begin

  p: =1;

  for i: = 1 to 10 do begin

      a[i]: =i+i*i;

      if odd(i) then begin

          writeln(a[i]);

          p: =p*a[i];

      end;

  end;

  writeln(p);

end.

Ответ добавил: Гость

первая программа считает сумму входящих в строку цифр стоящих на местах с нечетными номерами, начиная с первой, если это буква то вместо нее берется 0(ноль)

результат выполнения

аб2в457где245*ж0247025020

2) 

var s, r: string; i: integer;

begin readln(s); r : = ''; for i : = 1 to length(s) do if s[i] < > 'c' then r : = r + s[i]; writeln(r); end.

Ответ добавил: Гость

если от куска материи длиной 2/3 метра отрезать полметра, то длина оставшейся части составит 1/6 метра.

отделить от имеющегося куска 1/6 метра можно, сложив кусок вчетверо 2/3: 4 = 1/6.

Больше вопросов по информатике