описать функцию счет(s), подсчитывающую общее количество цифр и знаков +,-,* входящих в строку s;

@[ZAh]yo · Регистрация: 13.05.2009

Author24 — интернет-сервис помощи студентам

@Puporev · 13.05.2009, 07:11

Pascal

uses crt;
function Schet(s:string):byte;
var i,k:byte;
begin
k:=0;
for i:=1 to length(s) do
if s[i] in ['0'..'9','+','-','*'] then k:=k+1;
Schet:=k;
end;
var st:string;
begin
clrscr;
writeln('Введите строку:');
readln(st);
write('Количество цифр и знаков +,-,* =',Schet(st));
readln
end.

@[ZAh]yo 1 / 1 / 0 Регистрация: 13.05.2009 Сообщений: 60
		1
	описать функцию счет(s), подсчитывающую общее количество цифр и знаков +,-,* входящих в строку s; 13.05.2009, 06:51. Показов 4801. Ответов 1 Метки нет (Все метки) описать функцию счет(s), подсчитывающую общее количество цифр и знаков +,-,* входящих в строку s; 0

	13.05.2009, 07:11

описать функцию счет(s), подсчитывающую общее количество цифр и знаков +,-,* входящих в строку s;

Решение