Написать программу в Паскале переводящую футы и дюймы в метры и сантиметры

@beshketnicya · Регистрация: 21.01.2021

Помогите найти ошибку!

Pascal

 var F,D,m:real;
begin;
write('F= ');
readln (F);
write('D= ');
readln (D);
 m:=(F*12+D)*0.0254;
 writeln ('F D = ', m);
 readln;
 end.

При вводе в окно ввода 6 2 должен получиться ответ 6’2’’ = 1,88m.

@JuriiMW · 22.01.2021, 06:16

Всё правильно выдаёт!
Как программа написана…

@JuriiMW · 22.01.2021, 06:18

А то, что не округляет, дык, кто за вас это делать будет?

Pascal

var F,D : Real;
begin
  Write('F = '); ReadLn(F);
  Write('D = '); ReadLn(D);
  WriteLn((F*12+D)*0.0254:0:2);
end.

@Puporev · 22.01.2021, 06:43

Pascal

1	writeln (F,#39,D,'"=',m:0:2,'m');

@bormant · 23.01.2021, 15:31

или по-старинке:

Pascal

1	writeln (F,'''',D,'"=',m:0:2,'m');

@JuriiMW 4196 / 1995 / 2073 Регистрация: 10.12.2014 Сообщений: 7,632
	22.01.2021, 06:16	2
	Всё правильно выдаёт! Как программа написана… 0 Миниатюры

Опции темы