В вещественной переменной Y записано некоторое неотрицательное число, не превосходящее 30000.

Question

В вещественной переменной Y записано некоторое неотрицательное число, не превосходящее 30000.

В вещественной переменной Y записано некоторое неотрицательное число, не превосходящее 30000. Запишите в переменную P произведение первых после десятичной точки трёх цифр числа Y. Можно использовать дополнительные переменные всех типов, но необходимо указать тип для каждой дополнительной переменной.

Задать свой вопрос

Керусова Людмила
Информатика
2019-01-29 18:14:20
0
2

2 ответа

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Знайдть невдомий член пропорц a:1,5=4:3

Найдите в тексте имена дочерей тенардье Запишите

решите под буковкой (а , Безотлагательно!

Сочинение на тему quot; Воспитание Митрофанаquot; в произведении Фонвизина quot; Недоросльquot;

НОК( меньшее общее кратное) чисел 122 и 242

И.А.Крылов Мартышка и очки Каковы отличительные признаки сказки.

Ask tag questions.1. Its a fine evening,______________________________?2. They are on

найдите 8% составляют 1,6

Теорема Пифагора. Решите пожалуйста задачки,какие можете,не считая первой.

Опишите наружный вид средневекового замка и какой была система укреплений замка

Валерий Пантикян · Answer 1 · 2019-01-29 18:15:35+3:00

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

begin
var y:=ReadReal('Y=');
var p:=Trunc(Frac(y)*1000);
p:=(p div 100)*(p div 10 mod 10)*(p mod 10);
Writeln('P=',p)
end.

Пример
Y= 29632.637823
P=126

Дарья Утехина · Answer 2 · 2019-01-29 18:20:44+3:00

Var n,p,i: integer;
s: real;
begin
p:=1;
write('число: '); readln(s);
for i:=1 to 3 do
begin
s:=s*10;
n:=floor(s) mod 10;
p:=p*n;
end;
writeln('творенье: ',p);
end.

число: 425.3452
творенье: 60

О проекте

В вещественной переменной Y записано некоторое неотрицательное число, не превосходящее 30000.

Добро пожаловать!