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

помогите пожалуйста супер срочно

  1. Ответ
    Ответ дан 02DASHA02

    program summa

    var n,a,s,i:integer;

    begin

    read(n);

    s:=0;

    for i:=1 to n do

    begin

    read(a);

    if (a mod 10 = 3) then

    s:=s+a;

    end;

    Writeln(s);

    end.

    1. Ответ
      Ответ дан solovev57rusya
      не получилось
    2. Ответ
      Ответ дан 02DASHA02
      Попробуй if ( a mod 3=0)
    3. Ответ
      Ответ дан solovev57rusya
      Program1.pas(3) : Встречено 'var', а ожидалось ';'
    4. Ответ
      Ответ дан 02DASHA02
      Тогда сразу после summa ;
    5. Ответ
      Ответ дан solovev57rusya
      теперь супер ответственный момент- ввод данных