profile
Опубликовано 5 лет назад по предмету Информатика от ceyte

составьте программу, позволяющую найти количество цифр во введённой строке s

  1. Ответ
    Ответ дан DexelGamer
    //Pascal ABC.Net
    Var s:string;k:byte;
    Begin
    read(s);
    for i:=1 to length s do
    case s[i] of
    '1','2','3','4','5','6','7','8','9','0': k+=1;
    end;
    writeln (k);
    End.
Самые новые вопросы