Регистрация
irinka218
20.01.2021 19:59
Информатика
Есть ответ 👍

Нужно написать код для паскаль, должен получится простой рисунок, например елка или гриб (желательно без цвета).

260
392
Посмотреть ответы 1

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

алексей041
алексей041
4,4(5 оценок)
Program gt; var a: string; k,l,i,p: integer; begin readln(a); l: =length(a); k: =0; for i: =1 to l do begin p: =ord(a[i]); if(p> 191)and(p< 224)then a[i]: =chr(p+32); if(a[i]='ы')then k: =k+1; end; writeln(k); end.

Популярно: Информатика