
Руф
5 год назад
Написать программу, которая выводит на экран количество чисел, имеющихся в строке из различных знаков. Паскаль.
ОТВЕТЫ

Morrison Edwin
Oct 24, 2020
Var
S:string;
i,k:integer;
Begin
k:=0;
Write('Введите текст: ');
ReadLn(S);
For i:= 1 to Length(S) do
if ('0'<=S[i])and(S[i]<='9') then k:=k+1;
WriteLn('k = ',k);
End.
S:string;
i,k:integer;
Begin
k:=0;
Write('Введите текст: ');
ReadLn(S);
For i:= 1 to Length(S) do
if ('0'<=S[i])and(S[i]<='9') then k:=k+1;
WriteLn('k = ',k);
End.
508
Смежные вопросы: