Даны числа C...

Тема в разделе "Информатика", создана пользователем __DiMbl4__(not_banned), 8 мар 2010.

  1. __DiMbl4__(not_banned)

    __DiMbl4__(not_banned) New Member

    Даны числа C и D . Если C кратно D , то найти их сумму , иначе проезведение
     
    __DiMbl4__(not_banned), 8 мар 2010
    #1
  2. tigrus13

    tigrus13 New Member

    Var c, d : integer;
    Begin
      read(c, d);
      if с mod d= 0 then writeln(c+d)
      else writeln(c*d);
    End.
     
    tigrus13, 8 мар 2010
    #2

Поделиться этой страницей

Наша группа