Втурбо паскале, к сожалению, нет динамических массивов, по крайней мере, я в описаниях ничего не нашел, поэтому придется заранее задать n и m. пусть будет n = 10, m = 20. для чисел меньше миллиона функция prost работает за вполне приемлемое время. program sredprost; var a: array [1..10, 1..20] of integer; var i, k, p: integer, s: real; function prost(n: integer): integer var i: integer begin prost: =1; {esli n delitsia na kakoe-to chislo ot 2 do kornya iz n, to n sostavnoe} for i: =2 to sqrt(n) do if (n mod i = 0) then prost: =0; end; begin uses crt; clrscr; {vvodim nachalniy massiv} for i: =1 to 10 do begin for k: =1 to 20 do read (a[i,k]); end; s: =0; p: =0; {ischem prostye chisla, summiruem ih v s i schitaem kol-vo v p} for i: =1 to 10 do begin for k: =1 to 20 do begin {prost - eto funkcia poiska, prostoe chislo ili net} if (prost(a[i,k]) = 1) then begin s: =s+a[i,k]; p: =p+1; end; end; end; {srednee - eto summa chisel, delennaya na ih kol-vo} s: =s/p; writeln ('srednee vseh prostyh chisel ', s); end.
AleksandrovnaIgor
26.10.2021
№1 #include < iostream> using namespace std; int main () { setlocale (0,"russian"); float a,b,c,x; cout < < "размеры кирпича: " < < endl; cout < < "a="; cin > > a; cout < < "b="; cin > > b; cout < < "c="; cin > > c; cout < < "радиус круга: "; cin > > x; if ((a< x || b< x) & & c< x) cout < < "кирпич пройдёт."; else cout < < "кирпич не пройдёт."; system ("pause> > void"); return 0; } №4 #include < iostream> using namespace std; int main () { setlocale (0,"russian"); float a,b,c; cout < < "стороны треугольника: "; cin > > a > > b > > c; if (a< =0 || b< =0 || c< =0) { cout < < "неверно введены стороны (они не могут быть отрицательными)! "; } else { if (c> a & & c> b) { if (c==sqrt(a*a+b*b)) cout < < "треугольник прямоугольный."; else cout < < "треугольник непрямоугольный"; } else if (a> b & & a> c) { if (a==sqrt(c*c+b*b)) cout < < "треугольник прямоугольный."; else cout < < "треугольник непрямоугольный"; } else { if (b==sqrt(c*c+a*a)) cout < < "треугольник прямоугольный."; else cout < < "треугольник непрямоугольный."; } } system ("pause> > void"); return 0; }
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
При угадывании целого числа в диапазоне от 1 до n было получено 7 бит информации. чему равно n? ответ: 1) 128 2)7 3)49 4)1
n=2^i
^i=7
2^7 = 128
ответ: n= 128