В паскале сделать используя циклы: Ввести число и определить является…

Question

В паскале сделать используя циклы: Ввести число и определить является ли оно простым (если его делители являются 1 и самочисло)

Answer 1

35

kaznacheyv

08 апреля 2023

program xxx; var k, d, n: integer; pr: boolean; begin writeln ('Введите число k='); readln (k); d: =2; n: =k div 2; pr: =false; while (d <= n) and not (pr) do if k mod d=o then pr: =true else d: =d+1; if pr then writeln (k, '- число не простое') else writeln (k, '- число простое'); readlnend.

пользователи выбрали этот ответ лучшим

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

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

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: