profile
Размещено 4 года назад по предмету Информатика от Анечка08

Проверьте программу, кто хорошо разбирается в программировании.
Program P7;
var S:String; k,c,n,i,v:byte;
T:string
Begin
Write ('na ulite sneg');
readln (S);
n:=legth (S);
For i:=1 to n do
case S[I] of
' ':k:=k+1;
end;
Writeln ('kolicestvo clov,'k);
For i:=1 to n do
case S[I] of
',' , ';' , '.' , '!' ,':', '
end;
Writeln ('kolicestvo znakov prepinania',k);
For I:=1 to n do
case S[c] of
'b','c','d','f','g','k','l','m','n','p','r','s',t':k :=k+1
writeln('kolicestvo soglasnih, k);
readkey
end.

  1. Ответ на вопрос
    Ответ на вопрос дан petyaGavrikov
    Program P7;
    var S:String; n,k1,k2,k3,i:byte;
    Begin
    writeln('Введите строку:');
    readln (S);
    n:=length (S);
    k1:=0; k2:=0; k3:=0;
    For i:=1 to n do 
    case S[I] of 
    ' ' : k1:=k1+1;
    ',',';','.','!',':','?' : k2:=k2+1;
    'b','c','d','f','g','k','l','m','n','p','r','s','t': k3:=k3+1
    end;
    Writeln ('kolicestvo clov = ',k1+1);
    Writeln ('kolicestvo znakov prepinania = ',k2);
    writeln('kolicestvo soglasnih = ', k3);
    readkey
    end.

    Пример:
    Введите строку:
    na ulite sneg.
    kolicestvo clov = 3
    kolicestvo znakov prepinania = 1
    kolicestvo soglasnih = 6
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.