profile
Размещено 4 года назад по предмету Информатика от sofiaray

Напишите программу для Pascal
1) Пользователь вводит число, количество цифр в нем неизвестно, но последняя цифра = 0. Посчитать количество четных положительных цифр в этом числе.
2)Пользователь вводит число, посчитать количество цифр в числе и вывести минимальную цифру.

  1. Ответ на вопрос
    Ответ на вопрос дан Аккаунт удален
    program Ex1;

    var
      s: string;
      c: char;
      i, n, m, min: integer;

    begin
      s := '';
      m := 0;
      n := 0;
      min := 10;
      writeln('Введите число');
      repeat
        read(c);
        s := s + c;
        i := StrToInt(c);
        if i mod 2 = 0 then
          if c <> '0' then m := m + 1;
        // для задания 2)
        n := n + 1;
        if i < min then min := i
      until c = '0';
      writeln('Введено число ', s, ', в нем четных цифр- ', m)
    end.

    program Ex2;

    var
      s: string;
      i, d, n, min: integer;

    begin
      min := 10;
      writeln('Введите число');
      readln(s);
      n := length(s);
      for i := 1 to length(s) do
      begin
        d := StrToInt(s[i]);
        if d < min then min := d
      end;
      writeln('Введено число ', s, ', в нем цифр- ', n, ', минимальная- ', min)
    end.


Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.