Var a,d:integer; b,c,p:real;
begin
write('A=');readln(a);
write('B=');readln(b);
write('C=');readln(c);
write('Разговоров за месяц: ');readln(d);
if d<=a then p:=b*d else p:=b*a+c*(d-a);
writeln('Плата за телефон=',p:5:2);
<span>end.
Пример:
A=20
B=1.70
C=1.90
</span>Разговоров за месяц: 25
Плата за телефон=43.50
Навпростець. Геніально просто.
1)Ну тут все просто: делим число на 2 потом результат делим на 2 и.т.д.., потом остаток от каждого деления записываем в обратном порядке. С дробной частью аналогично, но умножаем на 2:
21,5<span>(10) = </span>10101.1000(2)
432,54<span>(10) = </span>110110000.1000(2)
678,333<span>(10) = </span>1010100110.0101(2)
То же, что и с двоичной, но делим и умножаем на 8:
21,5(10) = <span> 025.4000</span>(8)
432,54<span>(10) = </span>0660.4243(8)
678,333<span>(10) = </span>1246.2523<span>(8).
2)</span><span>а) 1110+101=10011; б)10101-11=10110; в)101*11=1111; г) 1110/10=111
Думаю помог.Удачи в знаниях,друг!</span>
Bmp и tiff - растровые, jpg и jpeg - не растровые (обычные) изображения