Дано некоторое натуральное число СН?

SAPFIR04KA 18 авг. 2020 г., 18:06:27

Function simp(var n : integer) : boolean ;

var i, j : integer ; priz : boolean ;

begin priz : = true ; i : = 2 ; j : = round(sqrt(n)) ; repeat if (n mod i) = 0 then begin priz : = false ; break ; end ; i : = i + 1 ; until i> ; j ; simp : = priz ;

end ;

{ основная программа }

var n : integer ;

begin write('CH = ') ; readln(n) ; n : = n + 1 ; while not simp(n) do n : = n + 1 ; writeln('наименьшее простое число : ', n) ;

end.

Li15 19 сент. 2020 г., 23:20:09 | 5 - 9 классы

1) дано четырёхзначное число?

1) дано четырёхзначное число.

Вывести максимальную и минимальную цифру.

Pascal abc

2) дано четырёхзначное число.

Что больше : произведение цифр числа или их утроенная сумма.

Pascal ABC.

Алиакберова 4 мая 2020 г., 14:55:50 | 10 - 11 классы

Файлы?

Файлы.

Pascal.

Дано натуральное число n.

Записать в текстовый файл n простых чисел начиная с 2.

ЭВАНЖЕЛИНКА 3 нояб. 2020 г., 19:28:30 | 10 - 11 классы

Pascal Вводится случайное число, вывести все цифры этого числа, которые встречаются в нем не менее двух раз?

Pascal Вводится случайное число, вывести все цифры этого числа, которые встречаются в нем не менее двух раз.

8713 4 сент. 2020 г., 09:13:15 | 10 - 11 классы

Pascal Дано три целых числа?

Pascal Дано три целых числа.

Вывести на экран те, для которых число А будет делителем.

Срочно помогите.

Ханчик5 14 апр. 2020 г., 18:39:02 | 5 - 9 классы

Дано натуральное число?

Дано натуральное число.

Вывести произведение его четных цифр (программа).

Katya300499 8 июл. 2020 г., 22:51:03 | 10 - 11 классы

Pascal?

Pascal.

Дан массив натуральных чисел.

Вывести все элементы массива, являющиеся двузначными числами.

Shah505 3 июн. 2020 г., 10:10:19 | 5 - 9 классы

Дана последовательность чисел, среди которых имеется один нуль?

Дана последовательность чисел, среди которых имеется один нуль.

Вывести на печать все числа до нуля включительно.

КуМир.

Timi 25 мар. 2020 г., 02:44:19 | 10 - 11 классы

Дано натуральное число N ?

Дано натуральное число N .

Определить наименьшую и наибольшую цифры данного числа (Pascal ABC).

Kropivka 5 мая 2020 г., 09:23:57 | 5 - 9 классы

(Паскаль)Дан массив вещественных чисел?

(Паскаль)

Дан массив вещественных чисел.

Вывести значение, ближайшее к числу Пи.

VaryaKornilova11 3 нояб. 2020 г., 22:01:28 | 5 - 9 классы

Вывести на экран натуральные числа от 1 до 9 в обратном порядке?

Вывести на экран натуральные числа от 1 до 9 в обратном порядке.

Использовать Pascal ABC.

ПОЖАЛУЙСТА!

СРОЧНО НАДО!