Program Z2;
Var q,s,n,x,y,m,w,a,b,c: real;
Begin
write ('введите число a=');
readln (a);
write ('введите число b=');
readln (b);
write('введите число c=');
readln (c);
x := c+sqrt(a)*sin(sqrt(c));
y := sin(3*b)*cos(3*b);
s := sqrt(a-x/y);
m := ln(1+sin(a));
w := sqrt((b+c)/(a*a-1))+(a/(c*b));//error x2
n := sqrt(b+(m/w));
q := sqrt((3+s)/(8-n));//error x4
writeln(q);
End.
Объяснение:
комментарии - кол-во ошибок(делал для себя) , крч говоря 2 лишних корня и пара скоьок в действии q, и ... вроде бы лишние скобки в w , но тут уже можно будет зрительно сравнивать
Во втором находится сумма цифр числа
а = 1
б = 2
с = 5
Сумма = 8
В третьем надо написать, насколько я вижу, на паскале программу.
program Hello;var a,b,c,x:integer;begin readln(x); a:=x div 100; b:=x mod 100 div 10; c:=x mod 10; writeln('Сотни ',a); writeln('Десятки ',b); writeln('Единицы ',c);end.
Ответ:
Герц. Международное обозначение Hz
В характеристиках процессоров применяется размерность Гигагерцы. это 10⁹ герц.
1) 15,6 Мб переводим в гигабайты:
15,6 ÷ 1024 = ~0,015 Гб
2) Находим заполненное:
1,24 + 1,27 + 0,015 = 2,525 Гб
3) Пропорция, чтобы найти количество заполненного в процентах:
16 / 100 = 2,525 / х
Отсюда получаем х = 15,8 %
4) Свободное:
100 - 15,8 = 84,2 %
Var n: integer;
var heigth: real;
begin
heigth := 120;
writeln('n = ');
readln(n);
for var i := 1 to n do
heigth := heigth * 1.02;
writeln('Heigth = ',heigth);
end.
var n: integer;
var heigth: real;
begin
heigth := 120;
writeln('n = ');
readln(n);
repeat
begin
heigth := heigth * 1.02;
n := n - 1
end
until n = 0;
writeln('Heigth = ',heigth);
end.