Помогите пожалуйста. очень надо.

Программу, значит, составить (написать)... - Это можно. Только вот на каком языке программирования это нужно сделать? - Нет, программе-то, конечно, без разницы, на каком языке программирования (а их (языков программирования) существует порядка 40) она написана, а вот учитель/преподаватель может спросить, с чего это программа была написана на этом языке программирования, а не на том, который он(а) преподает.

Вот, например, на Pascal:

 Program P1; 

uses crt; 

var a: real; 

    b: string; 

    i, n: integer; 

begin 

clrscr; 

writeln ('Введите с клавиатуры дробное число, после чего нажмите клавишу Enter. Целую часть от дробной отделите точкой, а не запятой.'); 

write ('Введите дробное число: '); 

readln (a); 

b:=floattostr (a); 

write ('Целая часть числа: '); 

for i:=1 to length (b) do if b[i]='.' then n:=i; 

for i:=1 to n-1 do write (b[i]); 

writeln (' ');

write ('Целая часть числа: ');  

for i:=n+1 to length (b) do write (b[i]);

writeln (' ');

write ('Программа завершена. Для выхода нажмите клавишу Enter.');

readkey; 

end. 

Вот на Python:

 print ("Введите с клавиатуры дробное число, после чего нажмите клавишу Enter. Целую часть от дробной отделите точкой, а не запятой.") 

a=float (input ("Введите дробное число: ")) 

b=str (a) 

for i in range (0, len (b)): 

    if b[i]==".": 

        n=i 

print (f"Целая часть числа: {b[:n]}") 

print (f"Дробная часть числа: {b[n+1:]}") 

Вот на C++:

 #include  

#include  

using namespace std; 

int main() 

{ 

    std::setlocale (LC_ALL, "RUS"); 

    double a; 

    string b; 

    int i, n; 

    char s='.'; 

    cout

Или так:
(PascalABC):

var n: real;

begin
Write (' Введите дробное число: '); Readln (n);
WriteLn (' Целая часть числа: ', Int(n));
WriteLn (' Дробная часть числа: ', n - Int(n));
end.

program ms1;
uses crt; {PascalABC}
var a:real;
begin
write('wwedite chislo a = '); read(a);
writeln('selyh chast = ', trunc(a));
writeln('drobnyh chast = ', frac(a):4:4);
end.