Программа: Какое расстояние меньше? В футах или километрах?

Задача: Ввести количество километров и количество футов. Сравнить, при условии, что 1км = 0.45 фута

PROGRAM fut;
	var x,y,z :real;
BEGIN
	Write ('Введите километры: ');
	Read (x);
	Write ('Введите футы: ');
	Read (y);
	y:=y * 0.45; {Перевод футов в километры}
	if x<y    {Сравнение километров и футов переведенных в км.}
    then WriteLn ('Расстояние в километрах меньше') 
    else WriteLn ('Расстояние в футах меньше');
END.

Просмотрело: 2209

Возможно, Вы искали: