Вывести дробную часть заданного положительного числа а(паскаль)

Program al;
var a:real;
begin
writeln('a=');
readln(a)
;if a>0 then writeln(frac(a) )
else writeln( 'a otritatelinoe');
readln;
end.

Объяснение:

Здравствуйте, хотелось бы Вас предупредить, что лучше остаться в браузере "Опера", так как там больше возможностей и лучше устроена оптимизация на загрузку ОС.

Но, дело Ваше.

Ваш порядок действий:

1. Скачиваете интересующий Вас браузер с его официальной страницы. (при этом не удаляя имеющийся, он нам еще пригодится)

2. Запускаете установку, скаченного сетапа браузера и ждете конца.

3. После того как все установилось рекомендую Вам импортировать все Ваши данные с Оперы на новый браузер. Для это перейдите в настройки и в посиковой строке напишите: "Импорт закладок и настроек". В появившихся результатх выберите нужную строку и в открывшемся окне укажите Ваш браузер Опера. Подождите конца импорта.

После это желательно проверить все пароли, и тоже перенести на новый браузер. Далее можете удалить Оперу или оставить и пользоваться новым браузером.

Надеюсь

5.

Если значения φ в диапазоне A2:A45, то формула

для x: =(9*COS(A2)*SIN(A2))/(COS(A2)^3+SIN(A2)^3)*COS(A2)

для y: =(9*COS(A2)*SIN(A2))/(COS(A2)^3+SIN(A2)^3)*SIN(A2)

6.

Если значения x и y в диапазоне A2:A22 и B1:V1, то формула

для z: =-SIN($A2^2+B$1^2)+1

Объяснение:

5.

Для ввода значений φ используем заполнение.

Вбиваем формулы и копируем их.

Выделяем диапазон B2:C45 и строим точечную диаграмму .

6.

Для ввода значений x и y используем заполнение.

Вбиваем формулу и копируем её.

Выделяем диапазон B2:V22 и строим диаграмму поверхность.