1. Акция на весь декабрь! Получай оплату х2 за уникальные статьи, объемом от 200 слов, если в заголовке темы и теле статьи присутствует слово Python
    Скрыть объявление

Проверьте правильность решения

Тема в разделе "Delphi - FAQ", создана пользователем the Rock, 17 июн 2007.

Статус темы:
Закрыта.
  1. the Rock

    the Rock Гость

    Посмотрите решение задачи:
    сколько цифр Х содержит число У (У>0, целое)
    Хм... решил через строки сделать, только непонятно, какую длину строки выбрать?
    и еще как задать в описании, что У>0, ну и в целом проверьте пожалуйста решение задачи

    Заранее благодарен:)!

     
  2. vital

    vital Больной Компом Детектед

    Регистрация:
    29 янв 2006
    Сообщения:
    2.468
    Симпатии:
    27
    Да будет тебе изветсно что есть такая ф-ция Length() которая возвращает длину строки.

    Решение ужасно. Это не решение.И это.. в паскале в конце выражения ставится ;

    Program chislo;
    uses strings; //вроде бы так
    var
    s,x:string;
    y:integer;
    begin
    writeln('Введите число у=');
    readln(s);
    writeln('Введите число x=');
    readln(x);
    for i:=1 to length(s) do
    begin
    if s=x then
    begin
    y:=y+1;
    end;
    end;
    writeln('Всего совпадений:',y);
    readln;
    end.

    Должно работать. Правда не ручаюсь, писал прямо тут. Впринципе, все должно быть ясно.. s возвращает i-тый символ в строке. Остальное вроде затруднений не вызовет. Это решение с использованием строк. Это не лучшее решение.

    Хороший вариант был бы введенное Y брать как число, делить на десять получать остаток, остаток сравнивать с введенным х. И соответсвенно увеличивать некую переменную. И так в цикле. Потом вывести значение инкременируемой переменной. Все..

    2the Rock
    Можно вопрос.. Где ты учишься?
     
Загрузка...
Похожие Темы - Проверьте правильность решения
  1. 203
    Ответов:
    12
    Просмотров:
    3.107
Статус темы:
Закрыта.

Поделиться этой страницей