Кажется, эта ссылка должна помочь!
https://support.office.com/ru-ru/article/%D0%92%D0%BE%D1%81%D1%81%D1%82%D0%B0%D0%BD%D0%BE%D0%B2%D0%BB%D0%B5%D0%BD%D0%B8%D0%B5-%D1%84%D0%B0%D0%B9%D0%BB%D0%B0-Office-4bddecb7-bf4f-4aad-b1b3-dab1633b5bbf
Сама с таким сталкивалась, но восстановить не получилось
<em>Наверное так :З</em>
var x:real;
Begin
write('Введите число: '); read(x);
writeln('Целое число: '+floor(x));
var r:real := 1;
for var i := 1 to length(''+(x-floor(x)))-2 do
r := r * 10;
writeln('Дробное число: '+((x-floor(x))*r + (floor(x) * r))+' / '+r+'');
write('Округленно число: ', round(x));
End.
Непонятная - какой небуть очень длинный и замудрённый пример по алгебре та и ещё на районной олимпиаде (не усваимая)!!!
Замечание: считается, что первое число <= второго числа.
var a,b:integer;
begin
write('Введите два числа: ');
readln(a,b);
writeln('Ответ: ',b-a-1);
end.
Пример:
<span>Введите два числа: 4 10
Ответ: 5</span>
В Worde:
Клавишей "Enter" в конце строки, чтобы создать новую строку.
Клавишей "Backspace" в конце пустой строки, чтобы удалить строку.
Клавишей "Delete" в начале пустой строки, чтобы удалить строку.