Задания.ру
Анонимно
22 часа назад

С клавиатуры вводится вещественное число. Вывести сумму
трёх его первых цифр после десятичной точки.

Ответ

Анонимно
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var r:=ReadReal('Введите вещественное число:');
  var n:=Trunc(1000*Frac(r));
  var s:=0;
  while n>0 do begin
    s+=n mod 10;
    n:=n div 10
    end;
  Writeln('Сумма трех первых цифр дробной части: ',s);
end.

Пример
Введите вещественное число: 3.141592
Сумма трех первых цифр дробной части: 6

Новые вопросы по Информатике

Текстовый файл содержит строку «ajsjsidmmkkkddmdmd». Какие результаты вы получите, если выполните следующие серии команд: а) seek (3); read(5) б) seek (5); read() в) seek (0); read(1) ​
5 - 9 классы
3 минуты назад
Дан одномерный массив заполнить случайными числами вывести на экран найти сумму четных чисел
10 - 11 классы
3 минуты назад
Помогите пожалуйста!!! Дан целочисленный массив A размера N (<=15). Переписать в новый целочисленный массив B все элементы с нечетными порядковыми номерами (1,3...) и вывести размер полученного ма...
5 - 9 классы
6 минут назад
Преобразуйте число 1110010(2) =10
5 - 9 классы
8 минут назад
Производительность ПК зависит… а) Частоты процессора б) Объема оперативной памяти в) Объема используемой оперативной памяти. Г) Винчестера.
5 - 9 классы
8 минут назад