Предмет: Информатика,
автор: kolesina21
Помогите с программами по ПАСКАЛЮ!!
1)Дано натуральное число n. Составьте программу, которая определяет сколько цифр этого числа кратны 3.
_________________________________________________________
2)Даны натуральные числа n, a1,...an.Составьте программу, которая определяет количество членов последовательности a1,...an, являющихся нечетными числами.
Ответы
Автор ответа:
0
var
a,b:integer;
begin
readln (a);
while a>0 do
begin
b:=a mod 10;
a:=a div 10;
end;
writeln ('Первая цифра числа: ',b);
end.
a,b:integer;
begin
readln (a);
while a>0 do
begin
b:=a mod 10;
a:=a div 10;
end;
writeln ('Первая цифра числа: ',b);
end.
kolesina21:
а по теме решить, нет? зачем мне первую цифру числа..
Похожие вопросы
Предмет: Английский язык,
автор: marinamm1
Предмет: Английский язык,
автор: Mirasanna
Предмет: Французский язык,
автор: mike961
Предмет: Математика,
автор: sava2255