Mobagat 25 ноября 2019 в 09:55
Написать программу которая бы по введеному номеру единицы измерения (-дециметр метр километр,миллиметр)выдавала бы соответствующие значения отрезка в метрах
Написать программу которая бы по введеному номеру единицы измерения (-дециметр метр километр,миллиметр)выдавала бы соответствующие значения отрезка в метрах
Var a:longint;
b:string;
begin
writeln(Введите длину);
readln(a);
writeln(Введите единицы измерения (метры/дециметры и т.д.));
readln(b);
if b=метры then writeln(a, метров)
else if b=дециметры then writeln(a/10, метров)
else if b=километры then writeln(a*1000, метров)
else if b=миллиметры then writeln(a/1000, метров);
end.
b:string;
begin
writeln(Введите длину);
readln(a);
writeln(Введите единицы измерения (метры/дециметры и т.д.));
readln(b);
if b=метры then writeln(a, метров)
else if b=дециметры then writeln(a/10, метров)
else if b=километры then writeln(a*1000, метров)
else if b=миллиметры then writeln(a/1000, метров);
end.
Компьютеры и вычисления
199
0
Для комментирования необходимо зарегистрироваться на сайте