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

ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Составьте программы к блок-схемам.​

  1. Ответ
    Ответ дан Аккаунт удален

    5.

    program scheme;

    var y,i,x:integer;

    begin

     y:= 0;

     for i:= 1 to 10 do

       begin

         readln(x);

         if x mod 2 = 0 then

           y:=x+y;

       end;

     writeln(y);

    end.

    1. Ответ
      Ответ дан Аккаунт удален
      6.
      program scheme;
      var y,i,x:integer;
      begin
      y:= 0;
      for i:= 1 to 10 do
      begin
      readln(x);
      if x mod 2 <> 0 then
      y:=y+1;
      end;
      writeln(y);
      end.
Самые новые вопросы