• Помогите написать программу на Паскале
    1.написать функцию,подсчитывающую количество единиц в числе и с её помощью определить,в каком из двух чисел единиц больше.

Ответы 1

  • var   s, s2: string;  function one(s: string): integer; var i, c: integer; begin   c := 0;   for i := 1 to length(s) do     if (s[i] = '1') then c := c + 1;   result := c; end;  begin   writeln('Введите первое число:');   readln(s);   writeln('Введите второе число:');   readln(s2);   if(one(s) > one(s2)) then write('В первом числе больше единиц')   else write('Во втором числе больше единиц'); end.
    • Автор:

      capone
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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