Написать программу, которая бы по введенному номеру единицы измерения (1-дециметр, 2-километр, 3-метр, 4-миллиметр, 5-сантиметр) и длине отрезка l выдавала соответствующее значение длины отрезка в метрах. паскаль, использовать оператор условие if
//Pascal var Ez: byte; z: real; begin writeln('1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр'); write('Введите номер единицы измерения: '); readln(Ez); write('Введите длинну: '); readln(z); if Ez = 1 then writeln(z/10, ' м'); if Ez = 2 then writeln(z*1000, ' м'); if Ez = 3 then writeln(z, ' м'); if Ez = 4 then writeln(z/1000, ' м'); if Ez = 5 then writeln(z/100, ' м'); readln; end.
Корпоративные требования к почтовой перепискеписьмо состоит из трех частей1. Обращение2. текст письма3. Подпись4. исполнитель или сотрудник для связи с полными координатами(адреса: почтовый,E-mail, IСQ,телефон) Сетевой этикет Сетево́й этике́т (сетикет, нетикет — неологизм, является слиянием слов «сеть» (англ. net) и «этикет») — правила поведения, общения в Сети, традиции и культура интернет-сообщества, которых придерживается большинство. Это понятие появилось в середине 80-х годов XX века в эхоконференциях сети FIDO. Некоторые из правил сетевого этикета присутствуют в RFC 1855 (английский вариант). Правила этикета не являются всеобщими и жестко установленными — в разных сообществах они могут значительно различаться. Так как основная цель этикета состоит в том, чтобы не затруднять общение в сообществе, правила могут устанавливаться исходя из целей сообщества, принятого стиля общения, технических ограничений, и т. д. Некоторые правила записаны, и даже оформляются в виде формального устава, а иногда и просто в виде списка, другие правила нигде не записаны, но известны большинству членов сообщества и строго соблюдаются.
1+1=10 (ноль пишем, 1 - переходит в старший разряд) Вообще все можно представить так - 1-самая старшая цифра в двоичной с.с. (В десятичной - это 9. При прибавлении в десятичной с.с. к 9 мы получаем 10, так происходит во всех с.с. Только в двоичной самая старшая 1 и, при прибавлении к ней 1 мы получаем также 10) 101011 +101010 1010101 Аналогично при вычитании. Представим число в десятичной с.с, например,1000. Если из него нужно вычесть 1, то мы заберем нужный нам разряд у 1. Тогда последний 0 превратится в 10, а все остальные 0 в 1. 11101 - 1111 1110 Ну, а умножение - это тот же процесс сложения. 10110 1111 10110 + 10110 10110 10110 101001010
var
Ez: byte;
z: real;
begin
writeln('1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр');
write('Введите номер единицы измерения: '); readln(Ez);
write('Введите длинну: '); readln(z);
if Ez = 1 then writeln(z/10, ' м');
if Ez = 2 then writeln(z*1000, ' м');
if Ez = 3 then writeln(z, ' м');
if Ez = 4 then writeln(z/1000, ' м');
if Ez = 5 then writeln(z/100, ' м');
readln;
end.