Var N, K: integer;
begin
write('N = '); readln(N);
if N > 0 then
begin
K := sqr(N + 1) + sqr(N + 2) + sqr(N + N);
writeln('K = ', K);
end
else
write('N меньше или равно 0');
end.
#include <iostream>
<span>#include <iomanip>
</span><span>using namespace std;
</span><span>int main() {
</span><span> int n=0;
</span><span> string a[5]={"очень плохо","не удовлетворительно",
</span><span> "удовлетворительно","хорошо","отлично"};
</span><span> do { cout<<"оценка: "; cin>>n; }
</span><span> while ( n<1 || n>5 );
</span><span> cout<<a[n-1]<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
</span><span>
</span>
var x1,x2,x3,x4,i:integer;
function f(x1,x2,x3,x4:integer):real;
begin
f:=x1*sin(x2)+x3*sin(x4);
end;
Begin
for i := 1 to 10 do
readln(x1,x2,x3,x4);
writeln(" x1=",x1," x2=",x2," x3=",x3," x4=",x4," y=",f(x1,x2,x3,x4));
for j := 1 to n do
End.
#include <iostream>
using namespace std;
int main()
{
int n,s;
for (int i=100; i<=999; i++)
{
n = i % 10;
s = n*n*n;
n = i / 10 % 10;
s = s+n*n*n;
n = i /100;
s = s+n*n*n;
if (i == s) cout << i << "\n";
}
return 0;
}
Результат:
<span>153
370
371
407</span>
Сначала массив будет
состоять из чисел от 0 до 9 в обратном направлении: 9, 8, 7, 6, 5, 4, 3, 2, 1,
0
<span>Потом, из числе от 0 до 9 в прямом направлении: 0, 1,
2, 3, 4, 5, 6, 7, 8, 9</span>