Var i, n:integer; b:array[1..3] of integer;begin write('Type integer: '); readln(n); if n<0 then n:=-n; // уничтожение знака числа repeat i:= i + 1; b[i] := (n mod 10); // вывод последней цифры числа n:= n div 10; // удаление последней цифры числа until n=0; if b[3] > b[2] thenwriteln('Цифра сотен больше десятков ',b[3] - b[2])elsewriteln('Цифра сотен меньше десятков ',b[2] - b[3]);if b[2] > b[1] thenwriteln('Цифра десятков больше единиц ',b[2] - b[1])elsewriteln('Цифра десятков меньше единиц ',b[1] - b[2]);end.
Пусть х - глубина цвета. Тогда кол-во цветов в палитре равно k = 2^х
1) k = 2^4 = 16
2) k = 2^8 = 256
3) k = 2^16 = 65536 (так называемый Highcolor)
4) k = 2^24 = 16777216 (т.н. Tru color)
Ну по идее как то так!
Если нет то сорян!
УДАЧИ В ДЗ!!!!
Program z_1;
var i,n,fact:longint;
begin
writeln('введите число от 1 до 10);
read(n);
fact:=1;
if (n>=1) and (n<=10) then
for i:=1 ti n do
fact:=fact*i
else
write('число не входить в диапозон от 1 до 10');
end.
Нет проблем:
//GNU GCC
#include <iostream>
using namespace std;
int main()
{
double a, b, c=0.0;
cout <<"Введите делимое: ";
cin >>a;
cout <<"Введите делитель: ";
cin >>b;
if(b==0)
{
cout <<"На 0 делить нельзя!" <<endl;
return 1;
}
c=a/b;
cout <<"Частное равно " <<c <<endl;
return 0;
}