Const D = 2.54;
var i: integer;
rez: real;
begin
for i := 1 to 10 do begin
rez := i * D;
writeln( i, ' см = ', rez, ' дюйм' );
end;
<span>end.</span>
Var a: array[1..100000] of integer;
n, i, j, max, prmax: integer;
begin
read(n);
for i:=1 to n do read(a[i]);
max:=a[1];
for i:=2 to n do if a[i] >= max then begin write(max, ' '); prmax:=max; max:=a[i] end else
if a[i] > prmax then begin write(a[i], ' '); prmax:=a[i] end else write(prmax, ' ');
<span>end.
Попробовал так написать, думаю, ввод-вывод с файла сам сможешь прикрутить...</span>
X - задуманное число.
(x*3+9+15-3)/3-x = (3x+21)/3-x = x+7-x = 7
На c++
#include <iostream>
#include <conio.h>
using namespace std;
int main()
{
int k;
cin >> k;
if (k >= 0)
{
k *= k;
cout << k << endl;
}
else
{
cout << k << "<0" << endl;
}
_getch();
return 0;}
да, второе понятие конкретизированно, и вродебы на моей памяти так не говорят. говорят СУБД