помогите с программой на delphi - есть ответ

Без имени, 113 просмотров

Введите с клавиатуры через пробел последовательность двухзначных и трехзначных чисеш. Определить в последовательности количество трехзначных числе. Столько парился так и не смог учитель новый и сам незнает как сделать. Помогите, хотябы как через что объясните.

Ответы:

_lex_

Что именно не смог? Вопроса не вижу. Это сервис "вопросы и ответы", а не "оболтусы и бесплатные домашние задания".

Кэп.О.

Покажите как пытались. Хотя-бы словесный алгоритм.
Вопросы "Сделайте за меня домшку" тут удаляются.

Кэп.О.

Не надо писать в личку, для этого есть примечания к вопросу.
Объясните что именно у вас не получается?

Serj82

var
n,m,i,t:integer;
s:string; //объявляем переменные
begin
m:=0; // обнуляем счетчики
n:=0; //обнуляем счетчики
s:=edit1.text; //считываем с текстового поля
t:=Length(s); // замеряем длину строки
for i:=1 to t do // проверяем каждый символ
if s[i]<>' ' then // если символ не является пробелом
begin
m:=m+1; // проверяем многозначность числа
if m = 3 then // если число трехзначное
n:=n+1; // фиксируем количество трехзначных чисел
end
else // если символ пробел
begin
m:=0; // обнуляем проверку многозначности
end;
// выводим количество трехзначных чисел в виде сообщения
showmessage('Количество трехзначных чисел = ' + inttostr(n));
end;

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.