• ПАСКАЛЬ!!!
    1. Вывести на экран числа 100, 96, 92, ..до последнего положительного включительно.
    2. Дано число. Если оно от 2 до 5 включительно, то увеличить его на 10. Если оно от 7 до 40, то уменьшить на 100. Если оно не более 0 или более 3000, то увеличить в 3 раза (то есть умножить на 3). Иначе занулить это число.

Ответы 6

  • А да, действительно - проглядел.
    • Автор:

      enrique
    • 6 лет назад
    • 0
  • сейчас добавлю
    • Автор:

      chubsssic
    • 6 лет назад
    • 0
  • bcghfdbk
    • Автор:

      ivyhogan
    • 6 лет назад
    • 0
  • исправил
  • Теперь точно огромное спасибо!!!!
    • Автор:

      lilyfvzx
    • 6 лет назад
    • 0
  • Var i : Byte;Begin  For i:=25 downto 1 do Writeln(i*4);end.Var A : Integer;Begin  Readln(A);  If (A<0) or (A>3000) then A:=A*3 else   If (A>=7) and (A<=40) then A:=A-100 else     If (A>=2) and (A<=5) then A:=A+10 else A:=0;  Writeln(A);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years