Вопрос по информатике:
НА ПАСКАЛЕ С клавиатуры вводится вещественное число. Вывести сумму
трёх его первых цифр после десятичной точки. СРОЧНО, ПОЖАЛУЙСТА
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.04.2018 06:47
- Информатика
- remove_red_eye 13397
- thumb_up 14
Ответы и объяснения 1
number: real;
p, k, i, s,c: integer;
str1, str2: string;
BEGIN
readln(number);
Str(number, str1);
str2:= copy(str1, Pos('.', str1)+1, 3);
val(str2,k,c);
s:= 0;
WHILE (k 0) DO
BEGIN
s:= s + (k mod 10);
k:= k div 10;
END;
writeln(s);
END.
- 25.04.2018 03:25
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.