Программа должна быть на языке C++ Ввести с клавиатуры символьную строку и определить, сколько в ней слов. Словом считается
последовательности непробельных символов, отделенная с двух сторон пробелами (или стоящая
с краю строки). Слова могут быть разделены несколькими пробелами, в начале и в конце строки
тоже могут быть пробелы.
Пример:
Введите строку:
Вася пошел гулять
Найдено слов: 3
3. Ввести с клавиатуры символьную строку и найдите самое длинное слово и его длину. Словом
считается последовательности непробельных символов, отделенная с двух сторон пробелами
(или стоящая с краю строки). Слова могут быть разделены несколькими пробелами, в начале и в
конце строки тоже могут быть пробелы.
Пример:
Введите строку:
Вася пошел гулять
Самое длинное слово: гулять, длина 6
const god1=1626;
god2=2015; bank=0.07; var
summa:real;
begin
summa:=24;
for var i:=god1 to god2 do
summa:=summa+(summa*bank);
writeln(summa);
end.
//2.
var
a,b:integer;
begin
read(a);
b:=0;
for var i:=1 to length(inttostr(a)) do begin
b:=b*10+a mod 10; a:=a div 10;
end;
writeln(b);
end.
//3.
const s=0.05;
var
d:integer;
z:real;
begin
read(z);
d:=0;
repeat
inc(d);
z:=z-z*s;
until z<=30;
writeln(d);
end.
//4.
var
b,c:integer;
a:real;
begin
writeln('Кол-во $ и какой проц. годовых?');
readln(a,b);
c:=0;
while a<1000000 do begin
a:=a+a*(b/100);
inc(c);
end;
writeln(c);
end.
//5.
const max=100;var
a,b,c,d:integer;
begin
b:=0;
writeln('Кол-во машин?');
read(d);
writeln('Перечислите вес груза');
read(a);
c:=a;
for var i:=1 to d-1 do begin
read(a);
while c<=max do begin
inc(b);
c:=c+a;
end;
end;
writeln(b);
end.
//ABC Pascal