var s,x,y:double; объявление 3-х переменных
begin
write('Введите х = ');readln(x); вводим х
write('Введите y = ');readln(y); вводим у
s:=exp(Ln(1-tan(x))*(cos(x)/sin(x)))+cos(x-y); exp(Ln(tan(x))*(cos(x)/sin(x))) - это возведение в степень, в натуральном лог. хранится выражение для возведения в степень, а умножение на нат. лог. означает возведение его в нужную нам степень(если бы там умножалось на 2,то тангенс у нас был в квадрате), а там у нас катангенс, значит возводится все в степень котангенса.
writeln('s = ',s:0:4); вывод результата
end.
173.35=1.386.8
6363=6,515,712 или 795,375
568328=71,041
4,25=4,352
232=232
var
i, si, N, ss: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (N);
s := IntToStr (N);
ss := 0;
for i := 1 to Length (s) do begin
si := StrToInt (s [i]);
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
// второй вариант решения
var
si, N, ss: Integer;
begin
Write ('Введите N: ');
ReadLn (N);
ss := 0;
while N > 0 do begin
si := N mod 10;
N := N div 10;
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
1)
var b,i:integer;
begin
b:=0;
for i := 100 to 999 do
if (i mod 17) = 0 then b:=b+i;
writeln (b);
end.
2)
var b,c:integer;
begin
b:=1;
for c:= 1 to 15 do
b:=b*c;
writeln (b);
end.
Место цифры в записи числа в позиционной системе счисления называется - <span>разряд.</span>