Вопрос по информатике:
напишите программу которая в последовательности натуральных чисел определяет минимальное число кратное 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.
как для минимального??
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.07.2017 22:26
- Информатика
- remove_red_eye 4083
- thumb_up 97
Ответы и объяснения 1
В общем, это то же самое, что и для максимального, только вначале ты присваиваешь переменной min значение первого числа последовательности, а потом сравниваешь с этим числом все остальные. Смотри:
В Паскале:
Var a, i, mix, N: integer;
Begin
Write ('Введите количество чисел в последовательности '); readln (N);
Write ('Введите первое число последовательности '); readln (a);
min:=a;
for i:=1 to N do
begin
Write ('Введите следующее число последовательности '); readln (a);
if (a mod 3 = 0) and (a end; Writeln ('Минимальное число, кратное 3 в последовательности равно ', min); End.
- 06.07.2017 18:36
- thumb_up 51
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.