Var
x, y, z: integer ;
begin
x := 19;
y := 3;
z := y * 2;
y := x mod y;
x := x - z;
y := y + z;
writeln('x = ', x, ', y = ', y, ', z = ', z);
end.
Вывод
x = 13, y = 7, z = 6
3* на 10 в минус первой степени + 8* на 10 в минус второй степени + 5* на 10 в минус третьей степени.
Не могу с телефона степени указать, написала словами
Using System;
class Program {
static void Main() {
Console.Write("a= ");
string sa = Console.ReadLine();
double a = Convert.ToDouble(sa);
Console.Write("n= ");
string sn = Console.ReadLine();
int n = Convert.ToInt32(sn);
int i = 1; double b = 1;
while (i <= n) {
b *= a;
i++;
}
Console.Write(b); Console.Read();
}
}
Пример(1):
a=3
n=3
27
Пример(2):
a=2,1
n=5
40,84101
Var a,b,c,d,n:integer;begin
writeln('введи номер цифры');
readln(d);
b:=0;
a:=1;
n:=0;
if d<0 then while d<0 do begin
writeln('введено неверное число ,попробуйте ещё раз');
readln(d);
end;
while c<2147483646 do begin
c:=a+b;
b:=a;
a:=c;
n:=n+1;
if (n=d) then c:=2147483647;if (n=d) then d:=b;
end;
writeln('это число ',b);
<span>end.</span>