Sub Z1()
Dim n As String
s = InputBox("Как тебя зовут?")
MsgBox ("Привет, программист " & s & "!")
End Sub<span>
</span>
Rectangle(50,100,350,300);
Rectangle(50,150,350,250);
Circle(200,200,48);
FloodFill(55,105,clRed);
FloodFill(55,255,clRed);
FloodFill(55,200,clBlue);
Program sh;
var j:integer;
massiv:array [1..1000] of integer;
begin;
begin;
randomize;
for j:=1 to 1000 do
massiv[j]:=random(1000);
end;
for j:=1 to 1000 do
begin;
if (massiv[j] mod 1=0) then
if (massiv[j]>0) and (massiv[j] mod massiv[j]=0) then
write (massiv[j]:5);
end;
end.
Я не очень понял запрос, в итоге эта программа выводит все натуральные числа созданные рандомом в районе от 0 до 1000.
Var a,b,c,x:integer;
begin
readln (a);
readln (b);
readln (c);
x:=a*b*c;
writeln (x);
end.
Var a,b: integer;
Begin
Writeln('Введите a,b');
readln(a,b);
Writeln(a-sqr(b));
readln();
<span>end.</span>