for k: =(m-1) div 7 + 1 to n div 7 do write(k*7: 8); readln
end.
объяснение:
в одном цикле по диапазону чисел, введенных пользователем, проверяй, делится ли переменная цикла (каждое последующее число диапазона) на 7 без остатка. если делится, то выводи, если нет, то ничего не делай.
int main() { setlocale(LC_ALL, "Russian"); int N, y, i; bool Prime; cout << "Введите число: "; cin >> N; do { Prime = true; y = N % 10; for (i = 2; i <= (sqrt(abs(y))); i++) { if (y % i == 0) { Prime = false; break; } } if ((Prime) & (y != 0) & (y != 1)) cout << y << " - простое" << endl; else cout << y << " - не простое" << endl; N = N / 10; } while (N != 0); system("pause"); return 0; }
Var a: array[1..10] of integer; b: array[1..10] of real; i,n: integer; s: real; begin s:=0; n:=0; write('массив a: '); for i:=1 to 10 do begin read(a[i]); if a[i]<0 then begin s:=s+a[i]; n:=n+1; end; write(a[i],' '); end; s:=s/n; writeln; writeln('среднее арифметическое отрицательных: ',s); writeln('количество отрицательных: ',n); write('массив b: '); for i:=1 to 10 do begin if a[i]<0 then b[i]:=s else b[i]:=a[i]; write(b[i]:7:3); end; end.
ответ:
var k,m,n: longint;
begin
write('m n ? '); readln(m,n);
for k: =(m-1) div 7 + 1 to n div 7 do write(k*7: 8); readln
end.
объяснение:
в одном цикле по диапазону чисел, введенных пользователем, проверяй, делится ли переменная цикла (каждое последующее число диапазона) на 7 без остатка. если делится, то выводи, если нет, то ничего не делай.