сервис вопросов и ответовОписать
10-11 класс|
|
функцию Del(X), находящую
наибольший целый делитель натурального числа Х.
Arafig
05 дек. 2014 г., 16:43:20 (9 лет назад)
К0Л0Б0К
05 дек. 2014 г., 18:22:42 (9 лет назад)
Видимо, "наибольший целый делитель натурального числа, меньший самого числа", иначе просто выводится число (х не равно 1)
var x, i, max:integer;
function Del(x:integer):integer;
begin
for i := 1 to x div 2 do
begin
if x mod i = 0
then
max := i;
end;
del := max;
end;
begin
read(x);
writeln(Del(x));
end.
Ответить
Другие вопросы из категории
Читайте также
1.Напишите команды, которые выполняют следующие действия: а) вывод переменной с ;б) описать переменные а и s целого типа; в) переменной r присваивает
разность чисел p и q.
2.Что будет на экране после выполнения следующих команд: а) Writeln(9); Write(5); Writeln(3); б) Writeln(4*2); Write('5-3'); Writeln('5+1=',5+1);
3.Укажите различия циклов While и Repeat
4.Дана строка. Определить сколько пробелов в этой строке
6.Дано четырехзначное число. Вывести на экран сумму цифр этого числа
7.Найти количество цифр целого числа N
8.Напишите команды, которые выполняют следующие действия: а) ввод переменной d б) описать переменные m и n вещественного типа. в) переменной s присвоить разность чисел p и q
9.Что будет на экране после выполнения следующих команд: Writeln(5-3); Write('5+3'); Writeln('5*4=',5*4);
10.Когда нельзя применять цикл for
11.Дана строка. Определить сколько букв в этой строке
12.Дано трехзначное число. Вывести на экран все его цифры столбиком
13. Найти количество цифр целого числа N(+блок-схема)
Забил на тему, теперь не знаю) Решите пожалуйста в паскале, было бы удобнее, при возможности скрин. из паскаля с работой, или на листке, ну или здесь
описать) Буду весьма благодарен)
пожалуйста помогите подскажите как делать такое задание в delphi
Нужно СЕГОДНЯ итак надо по номеру дня недели определить чем вы занимаетесь в свободное время.Можно написать любые занятия.
3 разные виды занятия.
Описать когда свободное время ,тоесть действия не определены.
Описать процедуру SortInc3(A,
B, C), меняющую содержимое переменных A, B, C таким
образом, чтобы их значения оказались упорядоченными по возрастанию (A, B,
C — вещественные параметры, являющиеся одновременно входными и
выходными). С помощью этой процедуры упорядочить по возрастанию два данных
набора из трех чисел: (A1, B1, C1) и (A2, B2, C2).
Вы находитесь на странице вопроса "Описать", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.