Каков вопрос - таков ответ:
var x,y:integer;
begin
write('x = ');
readln(x);
y:=random(1000)+1;
writeln('Делю число ',y,' на ',x,': ',y,'/',x,' = ',y/x);
end.
Пример:
<span>x = 5
Делю число 595 на 5: 595/5 = 119</span>
var
i, n, y: integer;
begin
write ('x= ');
readln (x);
if (x>0) then
y:=sin(2*x)
else
y:=1-(2*(sin(2*x)));
write(y);
end;
#include <conio.h>
#include <iostream>
using namespace std;
int main()
{
int a[12],k;
cout<<"Massive before: ";
srand(time(NULL));
for(int i=0;i<12;i++)
{
a[i]=(rand() \% 25 -12);
cout<<a[i]<<" ";
if((i+1)\%4==0) cout<<" | ";
}
for(int j=0;j<3;j++)
{
for(int i=0;i<2;i++)
{
k=a[j*4+i];
a[j*4+i]=a[3+j*4-i];
a[3+j*4-i]=k;
}
}
cout<<endl<<"Massive : ";
for(int i=0;i<12;i++)
{
cout<<a[i]<<" ";
if((i+1)\%4==0) cout<<" | ";
}
getch();
return 0;
}
<span>
</span>
Uses crt;
var x,y:real;
begin
read(x,y);
if (x>0) and (y>0) then
writeln('I')
else if (x<0) and (y>0) then
writeln('II')
else if (x<0) and (y<0) then
writeln('III')
else
writeln('IV');
<span>end.</span>