Program raf105;
var
s: string;
c,i: integer;
begin
write('Введите фразу: ');
readln(s);
for i:=1 to length(s) do
if s[i] = 'o'
then c:= c+1;
writeln('Количество символов "o" в ведённой фразе: ',c);
end.
<h3><u>PascalABC 3.4.2</u></h3>
Актуальность информации. Сегодня не 2010 год - информация устарела.
1) 35 Кбайт
2) стол
3) 13 . Извини время нет расписывать
Итак, алгоритм прост:
Площадь = а * б * с
<em>Периметр = а + б + с</em>
<em>Могу реализовать это же на паскале:</em>
<h3>
<em>var a,b,c,s,p:integer;</em></h3><h3>
<em>begin</em></h3><h3>
<em>read(a,b,c);</em></h3><h3>
<em>s:=a*b*c;</em></h3><h3>
<em>p:=a+b+c;</em></h3><h3>
<em>Write(s,' ',p);</em></h3><h3>
<em>end.</em></h3>
Если мой ответ вам помог - выберите его лучшим :)
Заранее спасибо
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Числа\";
ПЕР
Rost: РЯД 12 ИЗ ЦЕЛ;
сч: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(Rost) - 1 ВЫП
Rost[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 30)) + 150
КОН
КОН Задание.