Var
u,r,i:real;
begin
writeln('Введите напряжение: ');
readln(u);
writeln('Введите сопротивление: ');
readln(r);
i:=u/r;
writeln('Сила тока равна ',i)
<span>end.</span>
<span>// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
</span>
var
a:array[1..1000000] of integer;
i, n, x, y, cnt : integer;
begin
writeln('Введите кол-во элементов массива');
readln(n);
writeln('Введите ', n, ' чисел');
for i:= 1 to n do read(a[i]);
Writeln('Введите промежуток от X до Y');
readln(x, y);
for i:= x to y do
if (a[i] < 0) then cnt:= cnt + 1;
Write('Отрицательных элементов: ', cnt);
end.
Var x,sn,s:real; n,i:integer;
begin
readln(x,n);
s:=0;
sn:=1;
for i:=1 to n do
begin
sn:=sn*sin(x);
s:=s+sn;
end;
writeln('s = ',s:6:4);
end.
Пример:
0.9 5
<span>s = 2.5490</span>
1 процессор
2 монитор
3 память
4 джойстик
5 винчестер
6 принтер
193.125 в 10=1x10²+9x10¹+3x10⁰+1x10⁻¹+2x10⁻²+5x10⁻³
193125 в 8=1x8⁵+9x8⁴+3x8³+1x8²+2x8¹+5x8⁰
193125 в 16=1x16⁵+9x16⁴+3x16³+1x16²+2x16¹+5x16⁰
1931.25 в 5=1x5³+9x5²+3x5¹+1x5⁰+2x5⁻¹+5x5⁻²