var a,z,x,y:real;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение z: ');
readln(z);
writeln('Введите значение y: ');
readln(y);
a:=(1+z)*((x+(y/(sqr(x)+4)))/(2+(1/(sqr(x)+4))));
writeln('a = ',a);
end.
На картинке: Компьютер (интернет ресурсы); Книги (литература).
Также, информацию можно найти в библиотеках, архивах, в научных центрах и через общение( можно получить информацию).
===== PascalABC.NET =====
begin
foreach var n in Range(100, 999) do
if n mod 81 = 0 then
Print(n)
end.
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n<1 then Writeln('Число не является натуральным')
else begin
var s:=0;
while n>0 do (s,n):=(s+n mod 10,n div 10);
if s=10 then Writeln('Верно, что сумма цифр числа равна 10')
else Writeln('Неверно, что сумма цифр числа равна 10')
end
end.
<u>Пример</u>
Введите натуральное число: 50311
Верно, что сумма цифр числа равна 10
<u>№2</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n<1 then Writeln('Число не является натуральным')
else begin
var a:=new integer[10];
var good:=False;
while n>0 do begin
var i:=n mod 10;
a[i]+=1; n:=n div 10;
if a[i]>1 then Good:=True
end;
if Good then begin
Write('Цифры, встречающиеся больее одного раза: ');
for var i:=0 to 9 do
if a[i]>1 then Print(i);
Writeln
end
end
end.
<u>Пример</u>
Введите натуральное число: 15365123
Цифры, встречающиеся больее одного раза: 1 3 5
Пусть F(n) - число способов замостить дорожку 2xn. Тогда F(1) = 1, F(2) = 2.
Если n > 2, то можно либо положить с краю одну плитку вертикально, и заполнять осташуюся часть форожки 2x(n - 1), или положить две горизонтально и заполнять 2x(n - 2). Первое можно выполнить F(n - 1) способами, второе F(n - 2) способами. Поэтому F(n) = F(n - 1) + F(n - 2).
Получилось определение чисел Фибоначчи, F(n) - n- ое число Фибоначчи, F(n) = Fib(n).
Ответ. F(11) = Fib(11) = 144.