Есть ответ 👍

Составить программу периметра квадрата 4×4 клетки​

154
396
Посмотреть ответы 1

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


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.

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