Напишите эту программу ,но только с while. напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 6. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, оканчивающееся на 6. количество чисел не превышает 1000. введенные числа не превышают 30 000. программа должна вывести одно число минимальное число, оканчивающееся на 6.

278

342

Посмотреть ответы 2

Ответы на вопрос:

bogdan975

Информатика

4,8(85 оценок)

Var n,k,m,mn: integer; begin write('n = '); readln(n); mn: =30000; k: =0; while k< n do begin read(m); if (abs(m mod 10) = 6) and (m< mn) then mn: =m; k: =k+1; end; writeln(mn); end.n = 5 21 -26 18 -16 35 -26

mashaivedmed05

Информатика

4,6(51 оценок)

//1) var a,i: integer; begin a: =0; for i: =10 to 99 do if ((i mod 10+i div 10) mod 7=0) then a+=i; write(a); end. //2)var x,y,i,a: integer; begin read(x,y); a: =0; for i: =x to y do if (i mod 2=0) then a+=i; write(a); end.