Типо того наверное: повторение-учение-не учил-двойка-наказание-учил-пятерка-похвала
Спасибо
Ответ дал: Гость
var
s: string;
z,z1,i: integer;
begin
readln(s);
z: =0;
z1: =0;
for i: =1 to length(s) do
begin
if s[i]='м' then inc(z);
if s[i]='н' then inc(z1);
end;
if z> z1 then writeln('больше букв м');
if z< z1 then writeln('больше букв н');
if z=z1 then writeln('букв м и н равное количество');
end.
Ответ дал: Гость
моя неделя проходит загружено. половину дня я провожу в школе, потом , репетиторы, выйти на улицу, покататься на санках, поваляться в снегу времени практически а мы что-то говорим о здоровой чтобы я изменил? я бы ввёл электронные учебники и ведь это так бы время, не надо было бы писать в тетрадях уроки, набрал на компьютере и всё. оставалось бы больше свободного времени для прогулок и общения с друзьями.
Популярные вопросы