ответ:
var
str: string;
i, count: integer;
begin
write('your string: ');
readln(str);
i : = length(str);
if i > 0 then begin
count : = 1;
while i > 0 do begin
if str[i] = ' ' then
count : = count + 1;
i : = i - 1;
end;
end
else
count : = 0;
writeln('number of words: ', count);
readln;
end.
объяснение:
ответ: попробуй
объяснение:
void __fastcall tform1: : button1click(tobject *sender)
{
int count = 0;
tstringlist *list = new tstringlist; // г±г®г§г¤г*гґг¬ г±гїгёг±г®гє
list-> loadfromfile("f: \\гљгіг«гјгігёг*\\info.txt");
memo1-> text = list-> text;
list-> delimitedtext = memo1-> text;
memo2-> text = list-> delimitedtext;
for (int i=0; i < list-> count; i++)
{
if ( list-> strings[i].length() < = 4 )
{
count++;
}
}
label1-> caption = inttostr(count);
delete list;
list = null;
}
A) Номер вагона - числовой целочисленный (целый) тип, если не используется дополнительная нумерация. например, "0Б" - нулевой, багажный.
Б) Сорт яблок - символьный тип.
В) Количество дней в отпуске - целый тип
Вопрос 2
‘сорок’ - символьный тип
115 - целый тип
0.15 - вещественный тип
Вопрос 3
целый тип (BYTE): -46, 15
вещественный тип: -0.326
литерный (символьный) тип: '5', 'g'
строковый тип: ‘море’
Вопрос 4
площадь квартиры - постоянная, если речь об одной квартире, в которой не делается перепланировок;
название кинотеатра - может быть изменено, но редко, я бы отнес к постоянной;
количество дней в феврале месяце - переменная, зависит от того, является ли год високосным;
количество дней в году - переменная, зависит от того, является ли год високосным;
Вопрос 5
имя человека - символьный тип;
символ из таблицы кодов ASCII - литерный тип;
объём жидкости в сосуде - вещественный тип.
Вопрос 6
Допустимые величины: 23; ‘семьдесят’; 123; ‘тридцать один’
Хотя, ‘тридцать один’ - это не по-русски, правильно ‘тридцать одна’, но в компьютерных программах это допускается.