<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>
<span>Свойства комьпютера: Версия виндоус, система, сведения об активации, оборудование, быстродействие и т.д., Мои документы: тип, размещение, размер, размещение конечной папки....Рабочий стол: заставка, темы, оформление, цветовые схемы, разрешение... Др. обьектов: в основном размещение и размер, дата последнего изменения.</span>
Var
i,j,s:integer;
a:array[1..10,1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(-10,10);
if (a[i,j]=0) and (i=j) then s:=s+1;
write(a[i,j]:3)
end;
writeln
end;
writeln('Число нулей на главной диагонали: ',s)
<span>end.</span>
1 все числа однажначные
2 все числа двухзначные