1.program plo;
program plo;
var a, b, y: integer;
s:real;
const pi=3.14;
begin
writeln('Длина сторон: ');
readln(a, b);
writeln('Угол: ');
readln(y);
s:=0.5*a*b*sin(y*pi/180);
writeln('S= ', s)
end.
2. program V;
var a, b: integer;
s1, s2:real;
const pi=3.14;
begin
writeln('Высота H= ');
readln(a);
writeln('Радиус R= ');
readln(b);
s1:=pi*a*sqr(b);
s2:=pi*a*sqr(b)/3;
writeln('Объем цилиндра = ', s1);
writeln('Объем конуса = ', s2);
end.
Если хранить число без знака, то
- в 1 байт помещаются числа от 0 до 255 (2⁸-1)
- в 2 байта помещаются числа от 0 до 65 535 (2¹⁶-1)
- в 3 байта помещаются числа от 0 до 16 777 215 (2²⁴-1)
- в 4 байта помещаются числа от 0 до 4 294 967 296 (2³²-1)
Задано число <span>33 554 433 и для его размещения потребуется <u>4 байта.</u>
Можно, конечно, этим всем не заниматься, </span>если есть возможность вычислять логарифмы. В данном случае логарифм по основанию 2, округленный в большую сторону до целых, даст необходимое для представления числа количество битов.
㏒₂<span>33554433 = ㏑</span><span>33554433/㏑2 ≈ 25.00000004 ⇒ 26 бит требуется
Переводим в байты</span>: 26/8 = 3.25 , т.е. потребуется <u>4 байта</u>.
1)
program z1;
var
k, m, r: integer;
begin
write('k = ');
readln(k);
write('m = ');
readln(m);
r := 60 * k + m;
writeln('в минутах: ', r);
end.
2)
program z2;
var
k, m, a, b, l: integer;
begin
write('k = ');
readln(k);
write('m = ');
readln(m);
write('a = ');
readln(a);
write('b = ');
readln(b);
write('l = ');
readln(l);
if ( (60 * k + m) + (60 * a + b) ) < (60 * l - 15) then
writeln('пойду')
else
writeln('не пойду');
end.
3)
program z3;
var
m, r: integer;
begin
write('m = ');
readln(m);
r := m;
while r >= 60 do
r := r - 60;
writeln('стрелка будет показывать ', r, ' минут');
end.
Var n:integer;
Begin
Read(n);
while (n>0) do begin
if(n mod 2 = 1) then begin
writeln(true);
exit;
end;
n := n div 10;
end;
writeln(false);
End.
//1
var i: byte;
begin
for i := 2 to 20 do
writeln('Цена за ',i,' = ', 20.4 * i);
end.
//2
var i: byte;
Price, TotalPrice: real;
begin
Price := 20.4;
for i := 2 to 20 do
begin
TotalPrice := Price * i;
writeln('Цена за ',i,'шт. = ', TotalPrice);
end;
end.
