Program sh;
var n,k: integer;
begin
write('введите кол-во школьников: ');
readln(n);
write('введите кол-во яблок: ');
readln(k);
writeln('останется в корзинке: ', k mod n);
writeln('достанется каждому по ', k div n);
end.
program vichislenie_function;
var
x, y: real;
begin
writeln('Введи х');
readln(x);
y := x * x + 2 / (7 * x) - 9;
writeln('y=', y:5:2);
end.
<span>Мигающая лампочка является дискретным сигналом.</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,x):=(Sqrt(3),Tan(Pi/5),Log10(7));
var z:real;
if x<b then z:=ArcCos(a*a/(a*a+x*x))
else
if x=b then z:=Ln(2+Cos(b*x))
else z:=Abs(Tan(b*x))+2**(-a*x);
Writeln('z(x)=',z)
end.
Var a,b,c:integer;
begin
readln(a,b);
c:=<span>(a+b)/2;
</span>writeln(c);
<span>end.</span>