var x,z:real;
begin
writeln('Вычислить значение выражения по формуле y= (1+sin(SQRT(x+1)))/(cos(12*z-4))');
write('Введите число X: '); readln(x);
write('Введите число Z: '); readln(z);
writeln('y= ',(1+sin(sqrt(x+1)))/(cos(12*z-4)):0:2);
end.
<span>uses crt;
var a: array [1..15] of integer;
i: integer;
begin
writeln('Дан массив');
for i:=1 to 15 do
begin
a[i]:=random(41)-20;
write(a[i]:5);
end;
writeln;
writeln('Преобразованный массив');
for i:=1 to 15 do
if a[i] mod 2=0 then write(a[i]/2:5:1)
else write(a[i]*3:5);
end<span>.</span></span>
ED(16)+20(8)=100001101(2) Здесь таких чисел нет, все меньше
Ответ:
e)7 ж)6 - цифры
в)453.45 г)-45.5 д)1/5 - дробные числа
Объяснение:
цифра - один символ
дробное число - есть дробная часть, то есть не целое
Вот рабочая программа:
var
x,a,b,c,proiz,sum:integer;
begin
WriteLn('Введите 3-ех значное число');read(x);
a:=x mod 10;
b:= (x div 10) mod 10;
c:=x div 100;
sum:=a+b+c;
proiz:=a*b*c;
WriteLn('Произведение разрядов=', proiz);
WriteLn('Сумма разрядов=', sum);
end.