Втексте, введенном с клавиатуры, подсчитать количество удвоенных букв.

Question

Информатика: Втексте, введенном с клавиатуры, подсчитать количество удвоенных букв.

Ларибум · Accepted Answer

Var a: byte; b:integer; Begin  writeln( Введите день месяца ); readln(b); writeln( Введите номер месяца );    Readln(a);               Case a of         1: writeln(b, янавря );         2: writeln(b, февраля );       3: writeln(b, марта );         4: writeln(b, апреля );       5: writeln(b, мая );       6: writeln(b, июня );         7: writeln(b, июля );        8: writeln(b, августа );      9: writeln(b, сентября );      10: writeln(b, октября );      11: writeln(b, ноября );        12: writeln(b,...

MOGZ ответил