1. Информатика
  2. На pascal. с клавиатуры вводится

На pascal. с клавиатуры вводится вещественное число. вывести сумму трёх его первых цифр после десятичной точки. решение должно быть без условии (if) и циклов (while).
​

Арти2004 Арти2004    2   11.09.2019 19:03    0

Ответы
serpgo serpgo  07.10.2020 08:04

var a:real;

b:integer;

begin

readln(a);

b:=round(a*1000)mod 1000;

write(b div 100 + b mod 10 + b mod 100 div 10);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
КатяСвиридова КатяСвиридова  01.06.2020 17:18
Расширение программы скажите​...
KOMAPyKOTA KOMAPyKOTA  26.07.2019 03:50
Составить алгоритм подготовка к уроку рисования...
pаvеl2 pаvеl2  26.07.2019 03:50
Запас рыбы в озере оценивается в а особей. ежегодный прирост составляет 15%. ежегодный отлов - в особей. критической считается ситуация, когда особей становится...
Ляляляля109 Ляляляля109  10.09.2019 09:40
Плз как называется номер элемента массива ? запишите объявления массивов по их характеристикам : целочисленный массив а[10], нумерация элементов начинается с 10...
1321321325555555 1321321325555555  05.09.2021 20:04
построй трассировочную таблицу. Определите результат работы программы, если переменным а и были присвоены значения 2 и 4 соответственно. int(input ()) b = int (input...
misterbory misterbory  05.09.2021 20:03
1. Создайте таблицу «Режим дня и не забудьте ввести в та- блицу время пользования компьютером. 2. Ситуационное задание. Что вы посоветуете Жандосу? Мой совет Действие...
ksusha293 ksusha293  31.08.2019 15:50
Составьте программу,по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать).сделайте...
гататвтврвга гататвтврвга  31.08.2019 15:50
Умоляю! найдите сумму всех отрицательных чисел. посчитать число элементов со значением 0.5 (паскаль)...
nbibyf2005 nbibyf2005  31.08.2019 15:50
Ккаким типам файлов можно применять методы сжатия с потерей информации?...
Зина11111111 Зина11111111  31.08.2019 15:50
Самые опасные вирусы, разрушающие загрузочный сектор – это...

Популярные вопросы