Function MonthName(n) { var месяц; switch (n) { case 1: месяц = "январь"; break; case 2: месяц = "февраль"; break; case 3: месяц = "март"; break; case 4: месяц = "апрель"; break; case 5: месяц = "май"; break; case 6: месяц = "июнь"; break; case 7: месяц = "июль"; break; case 8: месяц = "август"; break; case 9: месяц = "сентябрь"; break; case 10: месяц = "октябрь"; break; case 11: месяц = "ноябрь"; break; case 12: месяц = "декабрь"; break; default: месяц = ""; break; } return месяц; }
1) uses crt; var i,gl,sogl: integer; b: string; begin gl:=0; sogl:=0; write('Введите текст: '); read(b); for i:=1 to length(b) do begin case b[i] of 'а','А','о','О','у','У','е','Е','ё','Ё', 'и','И','ы','Ы','э','Э','ю','Ю','я','Я': inc(gl); 'й','ц','к','н','г' ,'ш', 'щ' ,'з','х', 'ъ','ф','в','п','р' ,'л','д' ,'ж','ч', 'с','м','т','ь','б','Й','Ц','К','Н','Г', 'Ш', 'Щ' ,'З','Х','Ъ','Ф','В','П','Р' , 'Л','Д' ,'Ж','Ч','С','М','Т','Ь','Б': inc(sogl); end; end; writeln('Гласных - ',gl,' согласных - ',sogl); if gl>sogl then writeln('Гласных больше!'); if sogl>gl then writeln('Согласных больше!'); if gl=sogl then writeln('Кол-во гласных и согласных равно!'); end. 2) program alphbt; const glasn=['а','е','и','о','у','ы','э','ю','я']; soglas=['б','в','г','д','ж','з','й','л','м', 'н','р','к','п','с','т','ф','х','ц','ч','ш','щ']; var st: string; g,s,i:integer; begin write('Введите строку '); readln(st); g:=0; s:=0; for i:= 1 to length(st) do if st[i] in glasn then inc(g) else if st[i] in soglas then inc(s); if g> s then writeln('Гласных больше') else if g< s then writeln('Согласных больше') else writeln('Согласн=гласн'); readln; end. 3) var s: string; i, j, k: integer; begin writeln('Введите строку:'); readln(s); writeln('Символы, которые встречаются один раз:'); for i := 1 to length(s) do begin k := 0; for j := 1 to length(s) do if s[i] = s[j] then inc(k); if k = 1 then write(s[i]:4) end; readln end.
Никак 67346194