Антоны! Помогие!Пользователь вводит число а программа должна определить является ли число простым. Turbo PascalЗаранее спасибо! :3varx,i:integer;a:real;begini:=1;writeln('Введите число: ');readln(x);repeati:=i+1;a:=x/i;until (x mod i)=0;if (a=x) then writeln('Да!')else writeln('Нет');readln;end.
AKS, я так понимаю, тут не нужен.
Тебе программу, что ли, написать надо?
программу можно хоть отсюда взять, https://rosettacode.org/wiki/Prime_decomposition#Pascalбыло бы желание.
>>123626247 (OP)#include <stdio.h>#include <stdbool.h>#define CHAR_MX 256bool processNumber(unsigned int usrNum){ for(register int x = 2;x<usrNum;x++) { if(!(usrNum%x)) { return false; } } return true; }int main(void) { char inputBuff[CHAR_MX]; unsigned int usrNum = 0; printf("Enter a number: "); fgets(inputBuff,CHAR_MX,stdin); sscanf(inputBuff,"%d",&usrNum); if(processNumber(usrNum)) { puts("Prime number!"); } else { puts("Not a prime number!"); } return 0; }
>>123626247 (OP)>Turbo Pascal