<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
for var ii := 0 to (29 - 1) div 4 do
begin
var i := 1 + 4 * ii;
var (s, i2) := (0.0, i * i);
for var j := 2 to i * i + 5 do
s += Sin(Pi * i / (i2 + j * j));
Writeln(i:2, s:20:15)
end
end.
var
a:real;
begin
readln (a);
a:=trunc (a); {trunc - это такая функция (уже готовая в самой программе), которая находит целую часть числа}
writeln ('Целая часть числа а равна ',a)
end.
если я правильно понял смысл
Получатся числа 16 15 5 4 3 1
Сумма=44
Var a,b:array[1..10] of integer;i,j,min,min2,sum:integer;beginrandomize;for i:=1 to 10 dobegina[i]:=random(10);writeln(a[i]);end;min:= a[1]; for i:= 2 to 10 dobeginif (a[i] < min) then min:= a[i]; end;writeln('минимальный элемент 1 массива ',min);writeln('2 msssiv');for j:=1 to 10 dobeginb[j]:=random(10);writeln(b[j]);end;min2:=b[1];for j:=2 to 10 dobeginif ( b[j] < min2 ) then min2:= b[j]; end;writeln('минимальный элемент 2 массива',min2);sum:=min+min2;writeln('summa min:',sum);end.
var
x: array of string;
y: string;
begin
readln(y);
x := y.Split(' ');
y := x[0];
foreach w: string in x do
if (y.Length <= w.Length) then
y := w;
writeln(y);
<span>end.</span>