• Ребят,особо ничего делать не надо.Просто,если у вас на компе есть паскаль,введите пожалуйста эту программку и проверьте идет ли она,а то у меня нет паскаля а завтра контрольная ;( Вводится строка.Сколько в строке больших и маленьких латинских букв 'А'?
    введите какую нибудь строчку потом латинскими буквами,посмотрите правильно выведет?
    program stroka;
    var str:string;
    x,l:char;
    i,k:integer;
    begin
    k:=0;
    x:=a;
    l:=A;
    readln(str);
    for i:=1 to leghth(str) do
    begin
    if str[i]=x or str[i]=l then k:=k+1;
    if str[i]=x and str[i]=l then k:=k+2;
    end;
    writeln(k);
    end.

Ответы 1

  • Скрин///////////////////////////////////////
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years