Является ли целое число, введенное пользователем, простым

@kumir20 · Регистрация: 06.04.2012

Author24 — интернет-сервис помощи студентам

Составьте блок-схему и программу на языке VBA, которая проверяет,
является ли целое число, введенное пользователем, простым.

Исходные данные: Результат:
1. Введите число: 48 1. 48 – не простое число
2. Введите число: 7 2. 7 – простое число

@sco43 · 07.04.2012, 10:23

Visual Basic

Public s As Long
Private Sub CommandButton1_Click()
Dim n&
s = s + 1
n = InputBox(s & ".  Ââåäèòå ÷èñëî")
For i = 2 To Sqr(n)
 If n / i = Int(n / i) Then
  MsgBox s & ".  " & n & " - íå ïðîñòîå ÷èñëî"
  Exit Sub
 End If
Next i
MsgBox s & ".  " & n & " -  ïðîñòîå ÷èñëî"
End Sub

@kumir20 0 / 0 / 0 Регистрация: 06.04.2012 Сообщений: 3
		1
	Является ли целое число, введенное пользователем, простым 06.04.2012, 22:20. Показов 3546. Ответов 1 Метки нет (Все метки) Составьте блок-схему и программу на языке VBA, которая проверяет, является ли целое число, введенное пользователем, простым. Исходные данные: Результат: 1. Введите число: 48 1. 48 – не простое число 2. Введите число: 7 2. 7 – простое число 0

	07.04.2012, 10:23

Опции темы