1) var k,i,n:integer; begin write('k = '); readln(k); n:=0; for i:=2 to round(sqrt(k)) do if k mod i= 0 then n:=n+1; if n=0 then writeln(k,' - простое число') else writeln(k,' - составное число'); end.
Пример: k = 23 23 - простое число
2) var a,b,i:integer; function prost(n:integer):boolean; var j,m:integer; begin m:=0; for j:=2 to trunc(sqrt(n)) do if n mod j = 0 then inc(m); prost:=m=0; end; begin readln(a,b); writeln('Простые числа:'); for i:=a to b do if prost(i) then write(i,' '); end.
Пример: 10 30 Простые числа: 11 13 17 19 23 29
3) var k,i,n:integer; function prost(n:integer):boolean; var j,m:integer; begin m:=0; for j:=2 to trunc(sqrt(n)) do if n mod j = 0 then inc(m); prost:=m=0; end; begin readln(k); i:=2; n:=0; writeln('Простые числа:'); while n<k do begin if prost(i) then begin write(i,' '); n:=n+1; end; i:=i+1; end; end.
begin var n:=ReadInteger('n = '); var a:=ReadArrInteger('Введите '+n+' чисел:',n); Writeln('1. максимальное число, кратное 5 = ', a.Where(x->x mod 5=0).Max); Writeln('2. сумма чисел, оканчивающихся на 4 = ', a.Where(x->x mod 10=4).Sum); Writeln('3. сумма чисел, кратных 7 = ',a.Where(x->x mod 7=0).Sum); var b:=ArrRandom(n,10,90).Println; Writeln('4. сумма всех чисел, кратных 6 и оканчивающихся на 4 = ', b.Where(x->(x mod 6=0)and(x mod 10=4)).Sum); end.
