Нужно составить программу, которая просит ввести любое предложение. затем она должна: 1) сосчитать кол-во введенных символов 2) определить на какую букву начинается второе слово предложения 3) сосчитать кол-во пробелов в предложении
Program Slova;var a,c:string; b,k,i:integer;begin Writeln('Введите предложение'); readln(a); b:=length(a); c:=copy(a,2,1); For i:=1 to b do If a[i]=' ' Then k:=k+1; Write(b,' ',c,' ',k);end.
Производим обратные действия: имея команды "разделить на 3", "разделить на 2" и "отнять 1", сделать из 84 львов 1.
Поскольку нам нужно минимальное количество действий, будем пробовать команды именно в том порядке, в котором они указаны выше, только сначала проверяем, можем ли мы получить число, делящееся на 3 без остатка, отняв только 1.
1) 84 делится на 3 без остатка, результат - 28.
2) Ближайший делитель 3 к 28 - это 27, получить его можем в одну команду "отнять 1".
Производим обратные действия: имея команды "разделить на 3", "разделить на 2" и "отнять 1", сделать из 84 львов 1.
Поскольку нам нужно минимальное количество действий, будем пробовать команды именно в том порядке, в котором они указаны выше, только сначала проверяем, можем ли мы получить число, делящееся на 3 без остатка, отняв только 1.
1) 84 делится на 3 без остатка, результат - 28.
2) Ближайший делитель 3 к 28 - это 27, получить его можем в одну команду "отнять 1".
