Программы к Практической №3
program dcp ;
var i:real;
l:integer;
begin
writeln ('vedite chislo v kg');
read (i);
writeln(' 1 kg, 2 mg,3 g,4t , 5 cn');
read(l);

case l of
1:writeln('4islo v kg=', i);
2:writeln('4islo v mg=' , i*0.000001);
3:writeln('4islo v g=' , i*0.001);
4:writeln('4islo v t=' , i*1000);
5:writeln('4islo v cn=' , i*100);
end;
end.

program dcp ;
var i:real;
l:integer;
begin
writeln ('vedite chislo v sm');
read (i);
writeln(' 1 dm, 2 km,3 m,4mm , 5 sm');
read(l);

case l of
1:writeln('4islo v DM=', i/10);
2:writeln('4islo v km=' , i*1000);
3:writeln('4islo v m=' , i*100);
4:writeln('4islo v mm=' , i*0.1);
5:writeln('4islo v sm=' , i);
end;
end.

program dcp ;
var
i:integer;
begin
writeln ('vedite mesec 1 январь . 2 февраль . 3 март . 4 апрель . 5 май . 6 июль . 7 июнь . 8 август . 9 сентябрь . 10 ноябрь . 11 октябрь . 12 декабрь ');
read (i);

case i of
1:writeln ('31 дней') ;
2:writeln ('29дней') ;
3:writeln('30 дней') ;
4:writeln('31 дней') ;
5:writeln('30 дней') ;
6:writeln('31 дней') ;
7:writeln('31 дней') ;
8:writeln('30 дней') ;
9:writeln('31 дней') ;
10:writeln('30 дней') ;
11:writeln('31 дней') ;
12:writeln('31 дней') ;
else

writeln('ошибка');

end;

program chisla ;
var i :integer ;
b : string ;
begin
repeat
writeln('Введите число от 1 до 999');
read (i);
until (1>0) and (i<=999 ) ;
begin
case i div 100 of
1:write ('сто');
2:write ('двести');
3:write ('триста');
4:write ('четыреста');
5:write ('пятьсот');
6:write ('шестьсот');
7:write ('семьсот');
8:write ('восемьсот');
9:write ('девятьсот');
end ;
case i mod 100 div 10 of
2:write ('двадцать');
3:write ('тридцать');
4:write ('сорок');
5:write ('пятьдесят');
6:write ('шестьдесят');
7:write ('семьдесят');
8:write ('восемьдесят');
9:write ('девяносто');
end ;
case i mod 100  of
11:write ('одинадцать');
12:write ('двенадцать');
13:write ('тринадцать');
14:write ('четырнадцать');
15:write('петнадцать');
16:write('шестьнадцать');
17:write ('семьнадцать');
18:write ('восемьнадцать');
19:write ('девянадцать');

else
case i mod 10 of
1:write('один');
2:write('два');
3:write ('три');
4:write ('четыре');
5:write('пять');
6:write('шесть');
7:write ('семь');
8:write('восемь');
9:write ('девять');
end ;
end;
  end;

end.

Отредактировано Валера (11-10-2014 21:55:46)