Помогите пожалуйста !дано натуральное число : найти в нем общее количество цифр 1 и 2.
5-9 класс
|
на языке Паскаля с помощью "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.
Другие вопросы из категории
Читайте также
верно ли,что первая цыфраа данного числа чётная?
3)найти все трёхзначные числа,которые состоят из разных цыфр,а их сумма равна А(А вводится с клавиатуры)
4)найти все симметричные натуральные числа(палиндромаиз промежутка от А до В(А и В вводится с клавиатуры)
N, Написать ему выводящую на экран последовательность натуральность натуральных чисел отN до 1, номер 3 Даны натуральные числа N и К.Написать программу выводящую на экран последовательность из N чисел , каждое из которых равно К хотя бы что нибудь решите помогите очень надо!!!!!!!!!
Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел...
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.
Пожалуйста помогите !!!!!!!!