Показать сообщение отдельно
Старый 13.05.2014, 22:14   #6 (permalink)
Anton5475
Member
 
Регистрация: 12.03.2014
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

всем спасибо, в итоге получился такой вот код:

Uses Crt;
Var
n:byte;
l:real;
Begin
Repeat
ClrScr;
writeln('1 — сантиметр');
writeln('2 — миллиметр');
writeln('3 — дециметр');
writeln('4 — киллометр');

write('Введите длину отрезка в метрах: ');readln(l);
write('Введите номер еденицы длины: ');readln(n);

Case n of
1:writeln('сантиметров = ',l*100:0:3);
2:writeln('миллиметров = ',l*1000:0:3);
3:writeln('дециетров = ',l*10:3);
4:writeln('киллометров = ',l/1000:0:3);

else writeln('Не правильный выбор!')
End;
write('Повторить (1=да/2=нет): ');readln(n);
Until n=2;
End.
Anton5475 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070