Помогите пожалуйста !дано натуральное число : найти в нем общее количество цифр 1 и 2. на языке Паскаля с помощью "while"
Помогите пожалуйста !дано натуральное число : найти в нем общее количество цифр 1 и 2.
на языке Паскаля с помощью "while"
Гость
Ответ(ы) на вопрос:
Гостьprogram keke;
var n: string; i,k:integer;
begin
k:=0;
readln(n);
for i:= 1 to length(n) do
begin
if n[i]='1' then k:=k+1;
if n[i]='2' then k:=k+1;
end;
writeln(k);
end.
Не нашли ответ?
Похожие вопросы