Question

Добрый вечер (день, ночь, утро)! Помогите, пожалуйста, с заданием под номером 20.2. В нём нужно составить программу, которая определяет наименьшее не кратное пяти число, не оканчивающееся на 7. Количество чисел не должно превышать 1 000, числа не больше 30 000. Конечный результат нужно вывести. Желательно написать программу, работающую с любым количеством чисел, то есть, не подстраивать решение под введённые числа.
Заранее спасибо!

Answer 1

Задача сделана на языке паскаль, при помощи PaskalPlusОформление сделана как для студенческой задачи
Если есть вопросы пиши в личку

Файл: progam_stud.pasЗадача:
Автор:   Дата:  }
  var  a : array [1..1002] of integer;i, im, k, min :integer; //im - индекс искомого числа, min- минимальное число, k- максимальное количиство чисел в последовательности не считая 0
begin
i:=0;
im:=1;
min:=30001;  //Ввод  repeat  inc(i); 
 writeln ('Введите ', i, ' число'); 
readln (a[i]);   
until(a[i]=0);//если вводится ноль то вот прекращается 
k:= i-1; //фиксируется всего веденных чисел   
for i:=1 to k do   
 begin       
 if ((a[i]<min) and (a[i] mod 5 <> 0) and (a[i] mod 10 <>7)) then         
  begin           
 im:=i;           
end   
 end;   
writeln(a[im]) ; //вывод    
end.

887329b70c0b076703493b09a600987a.pas