Написать программу, которая переводит мм в дюйм, путем деленияв одном дюйме 0.0394 мм)

1 мм = 0,0393701 дюйма!
1 дюйм = 25.4 мм

1)
var m,d:real;
begin
write('Введите длину (в мм): ');
readln(m);
d:=m*0.0394;
writeln(m,' мм = ',d:8:4,' дюйма(ов)');
end.

2)
var m,d:real;
begin
write('Введите длину (в мм): ');
readln(m);
d:=m/25.4;
writeln(m,' мм = ',d:8:4,' дюйма(ов)');
end.

Пример:
Введите длину (в мм): 5
5 мм =   0.1970 дюйма(ов)

2015 - целый                                               ( Потомушто Нету точек)

2.555 - с плавающей точкой                    (потомушто тут есть точка)

True - логический                                       (Потомушто тру фалс логический)

2 147 489 647.0 - с плавающей точкой   (потомушто тут есть точка)

"s" - символьный                                         (потомушто букви символьный)

2 147 489 647 - целый                                ( Потомушто Нету точек)

Kiario - символьный                                    (потомушто букви символьный)    

False - логический                                       (Потомушто тру фалс логический)

: поставить 5 звезд и короно4ку

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

uses graphABC;

var n,da,db,x1,y1,x2,y2:integer;

begin

repeat

write('Введите количество точек от 2 до 50 n=');

readln(n);

until n in [2..50];

clearwindow;

da:=(windowwidth-100)div (n-1);//расстояние между точками ввверху

db:=da div 4;//то же внизу

if odd(n) then//если n нечетное

begin

 x1:=windowwidth div 2-da*(n div 2);

 x2:=windowwidth div 2-db*(n div 2);

end

else //если четное

begin

 x1:=windowwidth div 2-da*(n div 2-1)- da div 2;

 x2:=windowwidth div 2-db*(n div 2-1)- db div 2;

end ;

y1:=50;

y2:=windowheight-50;

for var i:=0 to n-1 do

line(x1+i*da,y1,x2+i*db,y2);

line(x1,y1,x1+(n-1)*da,y1);

line(x2,y2,x2+(n-1)*db,y2);

end.

Объяснение: