profile
Опубликовано 6 лет назад по предмету Информатика от генийанна

ДАЮ 50 БАЛЛОВ!!!

Помогите найти ошибку в задаче.

С клавиатуры вводится натуральное число N, а затем N целых чисел. Требуется посчитать сумму чисел четной длины. Под длиной числа понимается количество разрядов. В программе должна быть функция определяющая длину числа.

  1. Ответ
    Ответ дан petyaGavrikov

    function c(a:integer):integer;

    var k: integer;

    begin

    a:=abs(a);

    k:=0;

    while a>0 do

    begin

    k:=k+1;

    a:=a div 10;

    end;

    c:=k;

    end;

    var n,x,s,i: integer;

    begin

    readln(n);

    s:=0;

    for i:=1 to n do

    begin

    read(x);

    if c(x) mod 2=0 then s:=s+x;

    end;

    writeln('s = ',s);

    end.

    Пример:

    5

    12 9 -34 456 50

    s = 28

    1. Ответ
      Ответ дан hhokage
      Помогите пожалуйстааааа с заданием по информатике
      https://znanija.com/task/31870688
    2. Ответ
      Ответ дан ValeraDavay
      Здравствуйте, можете пожалуйста помочь с доказательством тождества по информатике?
Самые новые вопросы