Задать вопрос Регистрация
Помочь другим

  • 1. Вводить с клавиатуры числа до тех пор пока не будет выведено число 100 найти количество четный чисел

    2. Ввести с клавиатуры натуральное число . Изменить его левую цифру на "9"

Ответы 1

  • var i,s:integer;beginwhile i<>100 do beginreadln(i);if i mod 2=0 then inc(s);end;inc(s);writeln(s);end.

     

    var a:string;beginreadln(a);a[1]:='9';writeln(a);end.

    • Автор:

      stephen
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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