Строка комманд это лишнее, а все остальное подходит
Var a,n:integer;
begin
writeln('Введите n');
readln(n);
for a:=10 to 99 do
if (a mod n =0)then writeln(a);
<span>end.</span>
#include <iostream>
using namespace std;
int main()
{
int n,m,p;
cin>>n;
int n1=n/100;
int n2=(n/10)%10;
int n3=n%10;
if (n1>n2)
if (n1>n3) {m=n1; p=1;} else {m=n3; p=3;}
else
if (n2>n3) {m=n2; p=2;} else {m=n3; p=3;}
cout<<"max="<<m<<", poz= "<<p<<endl;
system("pause");
}
Эта папка называется КОТАЛОГ
1)
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=cos(x*x);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.
closegraph;
end.
2)
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=1/(x*x+1);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.
<span>
</span>