Помогите с программами по ПАСКАЛЮ!!
1)Дано натуральное число n. Составьте программу, которая определяет сколько цифр этого числа кратны 3.
______________________________________________________-
2)Даны натуральные числа n, a1,...an.Составьте программу, которая определяет количество членов последовательности a1,...an, являющихся нечетными числами.
1)Дано натуральное число n. Составьте программу, которая определяет сколько цифр этого числа кратны 3.
______________________________________________________-
2)Даны натуральные числа n, a1,...an.Составьте программу, которая определяет количество членов последовательности a1,...an, являющихся нечетными числами.
More Questions From This User See All
Answers & Comments
var
a,b,k : integer;
begin
readln (a);
k := 0;
While a > 0 do
begin
b := a mod 10;
a := a div 10;
if b mod 3 = 0 then
k := k +1;
end;
writeln (k);
end.
2)
var
n,a,i,k : integer;
begin
readln (n);
k := 0;
for i := 1 to n do
begin
readln (a);
if a mod 2 = 1 then
k := k +1;
end;
writeln (k);
end.