В паскале написать...

Тема в разделе "Информатика", создана пользователем Baby, 28 фев 2010.

  1. Baby

    Baby New Member

    В паскале написать программе,пожалуйста решите: Дано число.Если оно кратно 5,то увеличить его на3
     
    Baby, 28 фев 2010
    #1
  2. Инь

    Инь New Member

    Var N:integer;
    begin
    read(N);{Считываем значение N}
    if(N mod 5 = 0) then N:=N+3;{Если оно кратно 5ти, то увеличиваем на 3}
    writeln(N);{Выводим значение N}
    end.
     
     
     
     
     
     
     
     
     
     
     
    Инь, 28 фев 2010
    #2

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

Наша группа