Активная ячейка В2
диапазоны: А1:А2, D1:E2, A4:C4
<span>файл, содержащий программу в виде, в котором она может быть (после загрузки в память и настройки по месту) исполнена компьютером.</span>
Uses crt;
var a, b, c, max: integer;
begin
readln(a,b,c);
writeln(a, ' ', b, ' ', c);
max := a;
if max < b then max := b;
if max < c then max := c;
writeln('max= ',max);
end.
Измените тип переменных n и k на integer:
function Xfact(o: integer): integer;
var
factorial: longint;
i: integer;
begin
write('o = ');
readln(o);
factorial := 1;
for i := 2 to o do
factorial := factorial * i;
end;
var
c: real;
n,k:integer;
begin
writeln('Введите число n: ');
readln(n);
writeln('Введите число k: ');
readln(k);
c := Xfact(n) / Xfact(n - k) * Xfact(k);
writeln('C = ', c);
end.
<em>#include "stdafx.h"</em>
<em>#include <iostream></em>
<em>#include <fstream></em>
using namespace <em>std</em>;
int _tmain(int argc, _TCHAR* argv[])
{
<span> bool s = false;
</span><span> char fn[255];
cout << <em>"Filename: "</em> << endl;
</span><span> cin >> fn;
</span> ifstream fin(fn);
while(!fin.eof())
<span> if (fin.get() == 's')
</span><span> {</span><span>
s = true;</span><span> break;</span><span>
}
</span> fin.close();
<span> cout << <em>"There "</em> << (s ? <em>"is"</em> : <em>"isn't"</em>) << endl;
</span> system(<em>"pause"</em>);
return 0;
<span>}</span>