Var a: integer; begin read(a); while(a < > 0) do begin write(a mod 10); a : = a div 10; end; end.
Ответ дал: Гость
64 * 64 = 4096
512 * 8 = 4096 бит
4096 : 4096 = 1 бит
n = 2^i
n = 2^1 = 2 цвета
ответ. 2 цвета.
Ответ дал: Гость
составим уравнение:
x- первая корзина
y- вторая корзина
x+54=x+y
x-x+54=y
y=54 - (во второй корзине)
x=54+38
x=92
z- третья корзина
z=x-27
z=92-27
z=65
ответ: в третей корзине 65 орехов
Ответ дал: Гость
вот проверила, так работает. нормально?
program maxmin; var a, b, c: integer; max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.
Популярные вопросы