var
x, y, R, Oa, Ob: real;
begin
writeln('Введите радиус окружности R');
readln(R);
writeln('Введите координаты центра окружности');
readln(Oa, Ob);
writeln('Введите координаты точки');
readln(x, y);
if (x > (Oa - R)) and (x < (Oa + R)) and (y > (Ob - R)) and (y < (Ob + R)) then
writeln('Точка с заданными координатами лежит внутри круга')
else
writeln('Точка с заданными координатами лежит вне круга');
end.
Если все правильно, отметь решение как лучшее)
Const
N = 10;
Var
X:array[1..N] of integer;
i,k:integer;
S:real;
Begin
k:=0;
S:=0;
WriteLn('Введите массив A[',N,']:');
For i:= 1 to N do
Begin
Read(X[i]);
if X[i]>1 then k:=k+1
else if X[i]<0 then S:=S+X[i];
End;
WriteLn('k = ',k);
WriteLn('S = ',S);
End.
Биология - модель кровеносной системы, модель опорно-двигательного аппарата (скелет)
География - карта, глобус (модели Земли)
Физика - модель молнии, модель маятника (движение маятника), модель электрической цепи.
Химия - химический состав вещества (например, хим. состав воды - 2 молекулы водорода и одна молекула кислорода), модель молекулы азота.
Геометрия - модели геометрических фигур (геометрических тел - куб, призма...),
История - модели развития стран, модели развития военных действий
Зная что F = 1111 а 1 это 1 и что каждую цифру нужно заменять по тетрадам(четверкам) по правилу позиционной системы счисления нужно заменить
F на 1111
1 на 0001
и соединить
Ответ : 11110001
Var a, b, sum: integer;
readln(a);
readlb(b);
if ((a div 10 = 6) or (a mod 10 = 6)) and ((b div 10 = 6) or (b mod 10 = 6)) and ((a < 100) and (a > 9) and (b > 9) and (b < 100)) then
sum := a + b;
else writeln("в числах нет 6 или они не двузначные");
writeln(sum);
кажется должно быть понятно(это на паскале, но я его не помню и может быть ошибка где-нибудь.
а так просто объяснение:
вводим с клавиатуры 2 числа, заводим переменную для суммы
проверяем есть ли в числах цифра 6 и не двузначное ли оно
если все ок, то считаем и выводим сумму