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

Знаю примерно как решать ,но не выводится на программе Паскаль(1.Увеличить переменную f 6 раз,если f нечётное число,иначе увеличить на 29.2.Факториал числа

  1. Ответ
    Ответ дан nikolac
    1.
    var f:integer;
    begin
    read(f);
    if f mod 2<>0 then
    f:=6*f
    else
    f:=f+29;
    writeln(f);
    end.
    2.
    var i,n,k:integer;
    begin
    read(n);
    k:=1;
    for i:=2 to n do
    k:=k*i;
    writeln(k);
    end.
    1. Ответ
      Ответ дан аружан12345
      тогда:program ec2;
      var f,x:integer;
      begin
      readln(f);
      if f mod 2=1 then x:=f+6
      else x:=f+29;
      writeln(x);
      end.
    2. Ответ
      Ответ дан nikolac
      f*6, f+29
    3. Ответ
      Ответ дан аружан12345
      тогда :program ec2;
      var f,x:integer;
      begin
      readln(f);
      if f mod 2=1 then x:=f+6
      else x:=f+29;
      writeln(x);
      end.
    4. Ответ
      Ответ дан аружан12345
      тогда:program ec2;
      var f,x:integer;
      begin
      readln(f);
      if f mod 2=1 then x:=f*6
      else x:=f+29;
      writeln(x);
      end.ПРАВИЛЬНО?
    5. Ответ
      Ответ дан nikolac
      Да
Самые новые вопросы