Есть ответ 👍

кто как может (на я языке Пайтон)

229
485
Посмотреть ответы 2

Ответы на вопрос:

POMIPO
4,6(63 оценок)

№12. Записать логическое выражение определяющее, что число А является трёхзначным.

ответ: if len(str(A)) == 3: print(True)

№13. Записать условие, которое является истинным, когда только одно из чисел A, B и С меньше 45.

ответ: if (A < 45 and B >= 45 and C >= 45) or (B < 45 and A >= 45 and C >= 45) or (C < 45 and B >= 45 and A >= 45): print(True)

№14. Записать условие, которые является истинным, когда целое А не кратно трём и заканчивается нулем.

ответ: if not A % 3 == 0 and A % 10 == 0: print(True)

№15. Записать логическое выражение, которое определяет, принадлежит ли число А интервалу от -137 до -51 или интервалу от 123 до 55.

ответ: if (A > -137 and A < -51) or (A > 55 and A < 123): print(True)


Код не мой, не знаю, на счет правильности, var s: real;                 x: array [1..5] of real;                 y: array [1..5] of real;                 z: array [1..5] of real;             i,n,m: integer; {процедура вычисления площади треугольника} procedure plosh(x_1,y_1,z_1,x_2,y_2,z_2,x_3,y_3,z_3: real); var a,b,c,p,t: real; begin   a: =sqrt(sqr(y_2-y_3)+sqr(x_2-x_3)+sqr(z_2-z_3));   b: =sqrt(sqr(y_1-y_3)+sqr(x_1-x_3)+sqr(z_1-z_3));   c: =sqrt(sqr(y_1-y_2)+sqr(x_1-x_2)+sqr(z_1-z_2));   p: =(a+b+c)/2;   t: =p*sqrt((p-a)*(p-b)*(p-c)); end; {заносим в массив координаты вершин} for i: =1 to 5 do begin   if i: =1 or 5 then   begin     write('x',i,' -> '); readln(x[i]);     write('y',i,' -> '); readln(y[i]);     write('z',i,' -> '); readln(z[i]);   end;   else   begin     write('x',i,' -> '); readln(x[i]);     write('y',i,' -> '); readln(y[i]);     z[i]: =z[1]     writeln;   end;   end; end; {начинаем перебор всех вариантов сочетания вершин, треугольник} for i: =1 to 5 do for n: =1 to 5 do for m: =1 to 5 do begin   if ((i< > n) and ((n< > m) and (i< > then   begin plosh(x[i],y[i],z[i],x[n],y[n],z[n],x[m],y[m],z[m]);   end; end;

Популярно: Информатика