100011(2)=35 (10)
100011(2)=43(8)
100011(2)=23(16)
<span>101001011(2)=513(8)</span>
<span><span>101001011(2)=331(10)</span></span>
<span><span><span>101001011(2)=14B (16)</span></span></span>
Для конкретного человека
" Коля, позвони мне как освободишься ."
А для неконкретного
" Граждане и гражданки Советского Союза, говорит Москва, работают все радиостанции Советского Союза."
VAR
A: ARRAY [1..30] OF INTEGER;
i, max: INTEGER;
BEGIN
FOR i := 1 TO 30 DO READ (A[i]);
max := -1001;
FOR i := 1 TO 30 DO
IF (A[i]<0) AND (A[i]>max) AND (A[i] MOD 10 <>3) THEN
max := A[i];
WRITELN (max);
END.
1)Алгоритм решения задачи: <span>Программа должна запрашивать у пользователя следующую информацию:диаметр бака;высота бака;расход краски (площадь поверхности, которую можно покрасить одной банкой краски).В результате программа должна выдавать количество требуемых банок. При получении дробного числа округление должно всегда происходить в большую сторону.<span>Площадь крыши бака (круга) вычисляется по формуле <span>p * d2 /4</span> (где p – число пи, d - диаметр).
Площадь боковой поверхности цилиндра: p * d * h (где h – высота).
</span></span><span>Программа на языке Паскаль:
<span>const pi = 3.14;
var
d, h, b: real;
top, wall, q: real;
q_int: integer;
begin
write('Диаметр: ');
readln(d);
write('Высота: ');
readln(h);
write('Окрашиваемая площадь одной банкой: ');
readln(b);
top := pi * sqr(d) / 4.0;
wall := pi * d * h;
q := (top + wall) / b;
q_int := trunc(q) + 1;
write('Количество банок: ', q_int);
readln
end.
</span></span>
