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

[=|винтик|=]

Подсчитать, сколько раз входит символ "а" в текст из пяти строк, сколько раз символ "b" и сколько раз символ "с". Выдать информацию, какой символ из этих трех встречается более часто. Смотрел самоучители, но самостоятельно ничего не понял...

[Levsha100]

На каком языке?

[Sazary]

uses crt;
var
str : string;
i,len,a,b,c : integer;
begin
clrscr;
writeln('Vvedite stroku:');
readln(str);
a:=0;
b:=0;
c:=0;
len := length(str);

for i:=1 to len do
 if str[i] = 'a' then inc(a);
for i:=1 to len do
 if str[i] = 'b' then inc(b);
for i:=1 to len do
 if str[i] = 'c' then inc(c);
writeln('Symvol a: ',a);
writeln('Symvol b: ',b);
writeln('Simvol c: ',c);
if (a>b) and (a>c) then writeln('Samyj chastyj: a')
else if (b>a) and (b>c) then writeln('Samyj chastyj: b')
else if (c>a) and (c>b) then writeln('Samyj chastyj: c');
readln;
end.

[=|винтик|=]

Спасибо конечно огромное, я постараюсь еще и сам разобраться...

[=|винтик|=]

а вот задачка на массив:
Дан массив К, его размерность - 21, Тип данных - char, Условия ввода - в обратном порядке, Условия вывода - в виде:
.
..
...
....
.....
......


Подскажите пожалуйста что мне со всем этим делать и что означает char?

[=|винтик|=]

задачка на паскале...

[Сергей089]

char - это 1 символ.
А что означают эти многоточия?

[Sazary]

винтик Символы вводятся readkey-ем, поэтому enter жать не надо.

uses crt;
const N=21;
var
mas : array[1..N] of char;
i,j,k: integer;
begin
clrscr;
writeln('Vvedite simvoly v obratnom poryadke:');
for i:=N downto 1 do
  begin
  mas[i] := readkey;
  write(mas[i]);
  end;
writeln;
writeln('-------');
j:=1;
k:=1;
for i:=1 to N do
  begin
  write(mas[i],' ');
  if j = k then
   begin
   j := 1;
   inc(k);
   writeln;
   continue;
   end;
  inc(j);
  end;

readln;
end.

ps Я вижу, вы так и не прочитали правила!
1 программа = 1 тема!
--------------
Сергей089 Видимо, имеется в виду способ вывода (треугольником)

[=|винтик|=]

вот я и сам не знаю.....

[=|винтик|=]

учту, исправлюсь...