Регистрация
zlodej
25.05.2020 16:16
Информатика
Есть ответ 👍

Как сделать так чтобы было бесконечное количество ?​

115
200
Посмотреть ответы 1

Ответы на вопрос:

Skaikill
Skaikill
4,7(89 оценок)
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.

Популярно: Информатика