// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var x,y:real;
Write('Введите x и y: '); Read(x,y);
// 13
Writeln(cos(x)/(pi-2*x)+16*x*cos(x*y)-2);
// 20
Writeln((1+sin(sqrt(sin(x)+1)))/cos(12*y-4));
// 23
Writeln(Power(3,x)-4*x+(y-sqrt(abs(x))))
end.
<u><em>Тестовое решение</em></u>
Введите x и y: 2.15 4.1
-29.7277579658493
5.71678202339215
4.64604098127078
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL,"RUS");
const int n=10;
bool yes=false;
double a, temp;
cin>>a;
for (int i=0;i<(n-1);i++)
{
temp=a;
cin>>a;
if (a<=temp){yes=false;break;}
else yes=true;
}
if (yes)
cout<<"Ряд возрастающий";
else cout<<"Ряд не возрастающий";
system("pause");
return 0;
}
1)
Var i,a,b:longint;
Begin
read(a,b);
for i:=a to b do
if (i mod 3=0) then write(i,' ');
writeln;
End.
2)
Var i:longint;
Begin
for i:=10 to 99 do
if (abs(i mod 10 - i div 10)<=1) then write(i,' ');
writeln;
End.
3)
Var i,s,f,t:longint;
Begin
for i:=100 to 999 do
begin
f:=i div 100;
s:=i div 10 mod 10;
t:=i mod 10;
if (f=s) or (f=t) or (s=t) then write(i,' ');
end;
writeln;
End.
1 узнать длину одной стены (длину)
2 узнать длину второй стены (ширину)
<span>3 умножить</span>
При сортировке в электронной таблице ты можешь отсортировать данные только в одном столбце не затрагивая остальные столбцы, а можешь отсортировать все записи.
А в базе данных отсортируешь только все записи по выбранному ключу.