Определить, сколько раз первая цифра встречается в заданном числе

@Бездарь · Регистрация: 10.06.2010

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

1)Дано натуральное число сколько раз первая цифра встречается в данном числе;
2)Дано натуральное число найти количество четных цифр числа;
3) Напечатать таблицу значений функций sin х и cos х на отрезке [0,1] с шагом 0.1 в следующем виде (считать, что при печати на каждое вещественное число отводится по 6 позиций строки):
х sin(x) cos(x)
0.0000 0.0000 1.0000
0.1000 0.0998 0.9950
……………………….…….
1.0000 0.8415 0.5403
Зарание благодарен за помощь

@Puporev · 28.09.2010, 16:29

1.

Pascal

uses crt;
var n,m:longint;
    k:byte;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
m:=n;
while n>9 do
n:=n div 10;
writeln('Первая цифра=',n);
k:=0;
while m>0 do
 begin
  if m mod 10=n then k:=k+1;
  m:=m div 10;
 end;
write('Первая цифра встречается в числе ',k,' рз.');
readln
end.

Добавлено через 12 минут
2.

Pascal

uses crt;
var n:longint;
    k:byte;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
k:=0;
while n>0 do
 begin
  if (n mod 10) mod 2=0 then k:=k+1;
  n:=n div 10;
 end;
write('Количество четных цифр= ',k);
readln
end.

@Бездарь 0 / 0 / 1 Регистрация: 10.06.2010 Сообщений: 31
		1
	Определить, сколько раз первая цифра встречается в заданном числе 28.09.2010, 15:06. Показов 1556. Ответов 1 Метки нет (Все метки) 1)Дано натуральное число сколько раз первая цифра встречается в данном числе; 2)Дано натуральное число найти количество четных цифр числа; 3) Напечатать таблицу значений функций sin х и cos х на отрезке [0,1] с шагом 0.1 в следующем виде (считать, что при печати на каждое вещественное число отводится по 6 позиций строки): х sin(x) cos(x) 0.0000 0.0000 1.0000 0.1000 0.0998 0.9950 ……………………….……. 1.0000 0.8415 0.5403 Зарание благодарен за помощь 0

	28.09.2010, 16:29

Определить, сколько раз первая цифра встречается в заданном числе

Решение