Выяснить, сколько чисел таких, у которых первая цифра в дробной части равна 8

@mcmillan · Регистрация: 17.09.2015

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

3)Вводится несколько вещественных чисел.Конец ввода обозначается числом 0.Сколько чисел таких,у которых первая цифра в дробной части равна 8.

@JuriiMW · 18.09.2015, 09:40

Pascal

var
  N : Real;
  Count : Integer;
begin
  Count := 0;
  repeat
    Write('число или 0 > '); ReadLn(N);
    if Int(Frac(N) * 10) = 8 then
      Inc(Count);
  until N = 0;
  WriteLn(Count);
end.

@mcmillan 0 / 0 / 0 Регистрация: 17.09.2015 Сообщений: 3
		1
	Выяснить, сколько чисел таких, у которых первая цифра в дробной части равна 8 17.09.2015, 21:04. Показов 1195. Ответов 1 Метки нет (Все метки) 3)Вводится несколько вещественных чисел.Конец ввода обозначается числом 0.Сколько чисел таких,у которых первая цифра в дробной части равна 8. 0

	18.09.2015, 09:40

Выяснить, сколько чисел таких, у которых первая цифра в дробной части равна 8

Решение