Составить программу в паскале. Формат ввода: вводится одно натуральное число N, не…

Question

55

Составить программу в паскале. Формат ввода: вводится одно натуральное число N, не превосходящее 50. Формат ввода: Выведите 1, если данное число просто и 0, в противном случае.

в избранное ссылка

Знаете ответ?

xeon200 · Accepted Answer

74

xeon200

16 августа 2022

Var Q,N,i,x: longint; begin Read (N); Q: =Round (Sqrt (S); x: =0; For i: =2 to Q do if N mod i=0 then x: =1; Write (x); end.

комментировать

в избранное ссылка отблагодарить