Для каких из слов истинно высказывание: не (оканчивается на мягкий знак) и (количество букв чётное)? выберите все правильные варианты: сентябрь август декабрь май март

238

272

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

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

сергей940

Информатика

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

Правильный ответ: май

Groza11

Информатика

4,6(85 оценок)

Var s: string; a: array[1..26] of integer; i: integer; begin readln(s); for i: =1 to length(s) do begin if (s[i] in ['a'..'z']) then inc(a[ord(s[i])-ord('a')+1]); if (s[i] in ['a'..'z']) then inc(a[ord(s[i])-ord('a')+1]); end; for i: =1 to 26 do write(a[i],' '); end.