Как придумать 2 повествовательные предложения,2 побудительные предложения,2 вопросительные предложения ,2 восклицательные предложения

114

260

Посмотреть ответы 2

Ответы на вопрос:

murat121221

Информатика

4,8(14 оценок)

1. сегодня я купил 3 мороженого. моя мама весело отпраздновала день рождения. 2. встань и слелай . мне с трудным 3. ты подготовилсч к новому году? ты не жалеешь о своём выборе? 4. ура, я смог это сделать! сегодня прекрасный день!

nikita4502

Информатика

4,7(97 оценок)

Pascal неприятен тем, что не дает сравнивать без учета регистра(переводить все в верхний/нижний регистр тоже не вариант), поэтому так: program test; uses crt; const st1='ba'; st2='ba'; var str: string; i,n: integer; begin clrscr; write('input string: '); readln(str); for i: =1 to length(str) do if (st1=copy(str,i,2)) or (st2=copy(str,i,2)) then n: =n+1; writeln(n); end.