1)СРОЧНО!!!!!!!!! составить программы: Посчитать кол-во гласных и согласных букв в предложении, веденном на русском языке... 2) Ввести сстроку символов,

заранее спасибо)

месяц в течении года. через сколько месяцев его вклад увеличится вдвое от первоначального?

var v,a,b,c,r,h:real;
var num:integer;
begin
writeln('Введите значение num');
writeln('num='); readln(num);
case num of
1: writeln('Введите значения a,b,c');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
v:=a*b*c;
writeln('v=',v:8:3);
2: write('Bвежите значения r');
write('r='); readln(r);
v:=4/3*pi*power(r;3);
writeln('v=',v:8:3);
3: write('Введите значения r,h');
write('r='); readln(r);
write('h='); readln(h);
v:=1/3*pi*sqr(r)*h;
wrireln('v=',v:8:3);
else write(‘Введено число вне диапазона 1-3!’);
end.

пытаюсь написать программу в которой от того какую цифру из трех ты выберешь будет зависеть объем какой из трех фигур надо будет найти. Вижу что ошибка в использовании оператора case, как будто нельзя писать какие-то другие действия кроме write после 1: 2: 3:

а) наибольший элемент из отрицательных;

экран исходный массив и найденное кол-во.

всех деревьев. Определить группы учащихся посадили в третий день более 12 деревьев. Определить суммарное кол-во деревьев за 4 дня , которое посадила первая группа учащихся

B{1.....20}