2^36=<span>68719476736.............</span>
Ответ:
Program example;
var a,x,y: Extended;
Begin
write('Enter a: ');
readln(a);
x:=sqr(a)+cos(a);
y:=8*x+5*(exp(ln(x)*(2-1)));
writeln('y = ', y:0:3);
End.
Объяснение: Если есть вопросы, то пишите мне в лс.
PascalABC.NET 3.4
// без массива
begin var (a, b) := ReadInteger2('Задай два первых числа ');
var n := ReadInteger('Сколько всего чисел надо?');
Print(a, b);
for var i := 3 to n do
begin
(a, b) := (b, a + b);
Print(b)
end
end.
// с массивом
begin
var n := ReadInteger('Сколько всего чисел надо?');
var a := new integer[n];
(a[0], a[1]) := ReadInteger2('Задай два первых числа ');
for var i := 2 to n - 1 do
a[i] := a[i - 1] + a[i - 2];
a.Println
end.
Program massa;var m, a: real; begin writeln('Введите массу.'); readln(m); writeln('Введите единицу измерения массы. 1 - килограмм, 2 - миллиграмм, 3 - грамм, 4 - тонна, 5 - центнер.'); readln(a); writeln('Введённое вами значение равно '); if a=1 then write(m, ' килограмм.'); if a=2 then write(m/1000000, ' килограмм.'); if a=3 then write(m/1000, ' килограмм.'); if a=4 then write(m*1000, ' килограмм.'); if a=5 then write(m*100, ' килограмм.'); end.
меее, немного с окончаниями напортачила, но если надо, то можно просто до кг сократить и всё будет ок
Const n=100;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
writeln('Четные числа:');
for i:=1 to n do
if a[i] mod 2 = 0 then write(a[i]:4);
writeln;
end.
Пример (для n=10):
80 90 8 37 95 34 42 33 51 33
Четные числа:
80 90 8 34 42
