Помогите, пожалуйста, решить две задачи в паскале.

[Mazura]

СИЛЬНО НУЖНА ПОМОЩЬ ПОМОГИТЕ С БЛОКАМИ ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

[MrSTEP]

Для этих задач?

1.Циклы: Указываеться длина первого прыжка лягушки и ее начальное растояние до болота. Лягушка каждый последуйщий прыжок делает вдвое короче предыдущего. Достигнет ли она болота, и если да, то за сколько прыжков?
2.Развилка:Вводится время (только часы, без минут). Программа выдает соответствующие приветствие("Доброе утро","Добрый день" и т.п.)
3.Вводиться строка символов и один символ. Подсчитать количество вхождений символа в строке.

Могу помочь с БС

 

[Mazura]

мне для 3 задачи по строкам про массив и по вот этой:
program ineyanaya_3;
var
a,b,c: integer;
p: real;
s: real;
begin
writeln ('#####################################################');
writeln ('## Programma: lineyanaya_3 ##');
writeln ('## Naznachenie: zadanu storovu treygolnika, naiti ##');
writeln ('## ego ploshad po formyle gerona ##');
writeln ('## Pazpabotchuk: mazurenko pasha, gryppa TD-2 ##');
writeln ('## Data cozdaniya: 01.02.2010 ##');
writeln ('#####################################################');
writeln;
writeln('storona: ');
readln(a);
writeln('storona: ');
readln(b);
writeln('storona: ');
readln(c);
p:=(a+b+c)/2;
readln;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
readln;
writeln('ploshadi: ',s:4:6);
readln;
writeln('vivod peremennoi: ',p:4:6);
readln;
end.
Помогите срочно прошу!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

[MrSTEP]

В общем сильно ошибся я.. сейчас будут блок схемы для строки и массива

 

[Mazura]

Спасибо большое!!!!!!!!!

 

[Mazura]

Брать алгоритм Владимира!

 

[MrSTEP]

держите