у меня есть только 10 минут Саша сделал чертёж и нанёс на него размеры в миллиметрах Определите, чему равна площадь данной фигуры.

Відповідь:

ответ дан на фото.

Ошибки:

Строка №4 у тибя на фото

(K = N * P(a + b + c)) в питоне нужно

после переменной поставить что-то,

например какойто знак там * или /

Строка №5 (Print(k))

У тибя в 4 строке K большая буква

в 5 строке маленькая ето ошибка.

Примечания:

1.Перемение советую называть с маленькой буквы

например a, b, c, what, name, surname.

2.Функции (например: print, int, input)

тоже советую называть с маленькой буквы

3. Желательно не взаимодействовать с int и

float, тоисть не добавлять ни умножать int с float.

Чтобы исправить то нужно просто дописать float()

например n = float(int(input())).

(Если ты не знал то float - ето не целое число там 8.5,

8.75, 2. 51, а int - ето наоборот целое число например 5, 10, 15,

20, 21)

Uses Crt;
Var
   A,B:integer;
   P:real;
   C:boolean;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
P:=1;
C:=false;
B:=Abs(B);
While B>0 do
   Begin
   P:=P*(B mod 10);
   if B mod 10 = A then C:=true;
   B:=B div 10
   End;
WriteLn('P = ',P);
if C then WriteLn('Не верно')
else WriteLn('Верно');
ReadLn
End.

uses Crt;
Var
   A:integer;
Begin
ClrScr;
For A:= 100 to 999 do
    if ((A+1) mod 2 = 0)and((A+2) mod 3 = 0)and((A+3) mod 4 = 0)and((A+4) mod 5 = 0) then Write(A,' ');
ReadLn;
End.

uses Crt;
Var
   A,B,C:integer;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
C:=0;
While B<>0 do
   Begin
   if B mod 10 <> A then C:=C*10+B mod 10;
   B:=B div 10;
   End;
While C<>0 do
   Begin
   B:=B*10+C mod 10;
   C:=C div 10
   End;
WriteLn(B);
ReadLn;
End.