Program z1;
var a,b,c:real;
begin
writeln('введите 2 числа');
readln(a,b);
if (a>b) then c:=a/b
else c:=b/a;
writeln(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>
Var
n:integer;
x,p:real;
begin
x:=2;p:=1;
writeln('N?');
readln(n);
repeat
p:=p*Sin(x);
x:=x+2;
until x>n*2;
writeln('p: ',p:4:2);
end.
Int a, b, sum;
cin >> a >> b;
sum = a + b;
std::cout << sum;
Первое задание : 1 и 3
третье задание :TWYU
шестое задание : 1 Мбайт