Написать программу определяющую количество символов латинского алфавита в предложении (паскаль авс)

137

310

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

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

ника2760

Информатика

4,4(92 оценок)

Могу тем, что необходиом использлвать цикл for и массив, в котором каждый символ будет занимать каждую ячейку мвссива

saleev16

Информатика

4,4(23 оценок)

Program ugaday; var l,r,n,c,k: integer; y: 0..1; begin k: =0; writeln('vvedite znachenie, v predelah kotorogo vi zadumali chislo'); readln(n); l: =1; r: =n; while l< r do begin c: =(l+r) div 2; k: =k+1; writeln('vashe chislo > ',c,'? vvedite 1, esli da i 0,esli net'); readln(y); if y=1then l: =c+1else r: =cend; writeln('vi zadumali ', l,' ',k) end.