сервис вопросов и ответовНапишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся нацело на 7 . Программа получает на вход
5-9 класс|
|
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 7.
Количество чисел не превышает 1000. Введеные числа не превышают 30 000.
программа должна вывести одно число - минимальное число, делящееся нацело на 7.
Завтра Гиа помогите!!!
HelpMePlease8
31 июля 2014 г., 21:50:01 (9 лет назад)
Bejanyanira
01 авг. 2014 г., 0:03:15 (9 лет назад)
program fofgogjoj;
const n=1000;
var
a:array[1..n] of integer;
i,min:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(30000);
end;
min:=a[1];
for i:=1 to n do begin
if ((a[i] div 7)=0) and (a[i]<min) then
min:=a[i];
end;
writeln('Минимальное число, делящееся на 7=',min);
end.
Ответить
Другие вопросы из категории
- сложения чисел, хранящихся в ячейках А1 и В1; - вычитания чисел, хранящихся в ячейках A3 и В5; - умножения чисел, хранящихся в ячейках С1 и С2; -
деления чисел, хранящихся в ячейках А10 и В10.
Подскажите, пожалуйста, как решать такого вида задачи?
Циклический оператор REPEAT
Найти произведение:
y = 2*4*6*...*(2n)
Читайте также
Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – минимальное число, оканчивающееся на 4.
Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 6. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 6. Количество чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число минимальное число, оканчивающееся на 6.
1)Напишите программу,которая в последовательности целых чисел определяет количество трехзначных чисел,не кратных 5 и 7 и не заканчивающ
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
напишите программу которая в последовательности натуральных чисел определяет минимальное число кратное 3. знаю как написать программу
для максимального числа
var
a:integer;
b:longint;
begin
b:=0;
readln(a);
while (a<>0) do
begin
if ((a mod 3=0) and (a>b)) then
b:=a;
readln(a);
end;
writeln(b);
readln
end.
как для минимального??
хееееееееелп ми!!!ПАСКАЛЬ, Напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, сумма единиц и десятков
кратна 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
Вы находитесь на странице вопроса "Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся нацело на 7 . Программа получает на вход", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.