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.
Відповідь:
ответ дан на фото.
Ошибки:
Строка №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)