Var i,n,k:integer; begin Writeln('15 чисел, кратных 19:'); i:=100; while i mod 19<>0 do Inc(i); { первое, кратное 19 } Write(i,' '); k:=1; while k<15 do begin i:=i+19; Write(i,' '); Inc(k) end; Writeln end.
Задача 2. var m,V,rho,rmax:real; i:integer; begin Writeln('Максимальная плотность материала для 30 тел.'); Writeln('Вводите через пробел массу тела (кг) и объем (куб.см)'); rmax:=0; for i:=1 to 3 do begin Write(i:2,': '); Read(m,V); rho:=m/V; if rmax<rho then rmax:=rho end; Writeln('Максимальная плотность равна ',rmax:0:3) end.
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 procedure GetProdNeg(a:array of integer; var p:real); // произведение отрицательных элементов begin p:=a.Where(x->x<0).Aggregate(1.0,(p,e)->p*e) end;
function IsPrime(n:integer):boolean:= Range(2,Round(sqrt(n))).All(i->n mod i<>0);
procedure ArrPrime(n:integer; var a:array of integer); // массив простых чисел не больших n begin a:=Range(2,n).Where(i->IsPrime(i)).ToArray end;
begin var n:=ReadInteger('n='); var a:=ArrRandom(n,-50,50); a.Println; var r:real; GetProdNeg(a,r); Writeln('Произведение ',r); n:=ReadInteger('n='); var b:array of integer; ArrPrime(n,b); b.Println end.
0,254 = 2 * 10^(-1) + 5 * 10^(-2) + 4 * 10^(-3)
Объяснение: