begin
var y := ReadReal;
var z := y ** 10;
var x := z * (1 + z + Sqr(z));
x.Println;
end.
Пример1.543
453619.091174671
2)procedure Per(a, b: real; var p: real);
begin
p := a * b
end;
begin
var (x, y) := ReadReal2;
var Периметр: real;
Per(x, y, Периметр);
Периметр.Println;
var (n, m) := ReadReal2;
Per(n, m, Периметр);
Периметр.Println;
var (c, d) := ReadReal2;
Per(c, d, Периметр);
Периметр.Println
end.
Пример6 13
78
3.5 8.032
28.112
14 23.002
322.028
program название;
var a, b, s, p:integer;
begin
writeln ('Введите число a');
readln (a);
writeln ('Введите число b');
readln (b);
s:=a+b;
p:=a*b;
writeln ('Сумма чисел равна:', s);
writeln (Произведение чисел равно:', p);
end.
Объяснение:
/ - деление.
* - умножение.
sqrt - квадратный корень (всё что будет в корне заключается в скобки).
sqr - квадрат (всё что возводится в квадрат заключается в скобки).
В начале вводишь данные с клавиатуры (значение переменной a и значение переменной b).
Переменной s присваивается сумма переменных a и b.
Переменной p присваивается произведение переменных a и b.
Затем, выводится ответ.
627
Объяснение:
Для нахождения x немного изменим код программы - добавим цикл с условием
var
x,a,b,n: longint;
begin
n:=0;
while (a<>5) or (b<>9) do begin
a:=0; b:=0; x:=n;
while x>0 do begin
if x mod 2=0 then
a:=a+x mod 3
else
b:=b+x mod 5;
x:= x div 3
end;
inc(n);
//writeln(n,' ',a,' ', b); // вывод пошагового решения, если надо
end;
writeln(n);
end.