4 да я знаю я это самастаятельную прохадил
Var i:integer;
var t:text;
begin
for i:= 1 to 10000000 do
begin
execute( 'notepad.exe' );
assign(t,'poy'+inttostr(i)+'.txt');
rewrite(t);
close(t);
end;
end.
<span>var
i, p, s: integer;
begin</span>
<span> s:=0;
</span> p:=1;
for i:=15 to 20 do
<span>
begin
</span><span>s:=s+i;
p:=p*i;
</span> end;
writeln('s=',s);
writeln('p=',p);
end.
#include <iostream>
using namespace std;
int a, b;
void check(int a, int b);
int main()
{
cout<<"Enter 2 numbers\n";
cin>>a;
cin>>b;
check(a, b);
system("pause");
return 0;
}
void check(int a, int b)
{
if (a>b)
{
a=a*a*a;
b=b*b;
}
else
{
a=a*a;
b=b*b*b;
}
cout<<a<<"\n";
cout<<b<<"\n";
}